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PREFACE 



The Commodore 64 is a super machine. That became clear to 
us after working with the machine for only a short time. 
But even with the best computer you can't do much if you 
don't know much about its functioning and handling. 

The only area which disappointed us about the Commodore 64 
was the documentation. The user's guide was a good starting 
point, but lacked the detail which we sought. Further 
literature was not available. Therefore we decided to write 
the book ourselves. 

The result is in front of you. It does not claim to be 
complete, nor to have literary qualities, but this book 
contains the results of months of long and intensive work. 
We hope that it will help you to take advantage of the 
superb qualities of the COMMODORE 64. 
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CHAPTER 0: INTRODUCTION 



The Commodore 64 sets a new standard in terms of price and 
performance in pesonal computing. At the price of a home 
computer, the Commodore 64 is a professional quality 
computer. As the owner of a Commodore 64, you have several 
computers in one. Let's look at these - 



THE LEARNING AND INTRODUCTORY COMPUTER 

^ Its low price, EKe Commodore 64 is an affordable 
introductory level computer. Add a cassette drive and the 
Commodore 64 is a very capable computer system. Yet as the 
beginner increases his computer proficiency, the Commodore 
64 has enough capabilities so as not to limit his growth. 

Since the Commodore 64 uses the familiar BASIC language, the 
beginner should have an easy time learning to program. 
Commodore 64 BASIC is very compatible to the BASIC 
interpreters of other Commodore computers. Adapting BASIC 
programs for the Commodore 64 is straightf orv/ard. 

Although The Anatomy of the Commodore 64 is not written for 
the beginner, the first chapters should provide satisfactory 
reading for most of you. For those of you who want to start 
at a more advanced level, start with Chapter 4 (SYNTHESIZE?) 
and Chapter 5 (GRAPHICS). For you VIC-20 owners converting 
to the Commodore 64, Chapter 7 gives you information on this 
subject. 



THE BUSINESS COMPUTER 

The Commodore 64 offers such high price-performance that 
many businesses find it extremely attractive in the office 
or industry setting. Whether it is used for maintaining 
mailing lists or accounts receivable, drav/ing graphs or 
charts, performing word processing or playing the "what-if" 
games, it can be a very productive member of the business 
team. 

Without having to spend thousand of dollars, a business can 
sample the automated computer v;orld v;ith an inexpensive 
Commodore 64. We find that many Commodore 64 "home" 
computers are really being used for business purposes. 



THE DEVELOPMENT COMPUTER 

The advanced programmer will appreciate the large memory 
bank of the Commodore 64. With 64K RAM and 20K ROM, the 
Commodore 64 offers sufficient memory, even for the most 
sophisticated programs. The memory layout of the Commodore 
64 is described in chapter 3. 

This memory coupled with many of the advanced capabilities 
can be used to full advantage from machine language 
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programs. In order to encourage BASIC programmers to use 
machine language programming, we present an introduction to 
machine and assembler language programming in Chapter 1. 
Machine language or assembler language programming can 
enhance working in BASIC and make you more aware of the 
Commodore 64 's potential. 

In chapter 6 we describe how to add new commands to the 
BASIC interpreter. After experimenting, you should be able 
to create your own new commands, similar to ones in our 
example program. An important help is the extensively 
documented ROM listing of Commodore BASIC and the operating 
system which is in APPENDIX A. 



THE GRAPHICS COMPUTER 

With many other computers you have to buy expensive hardware 
additions to create graphics. But the Commodore 64 offers 
these features as standard. The Commodore 64 gets its high 
resolution color graphics capabilities from a totally new 
computer chip whose qualities and capabilities we describe 
in Chapter 5. 

We also describe the magic-like SPRITES. These super-large, 
user definable graphics symbols enable arcade and educa- 
tional animation that, in the past, were possible only with 
a great amount of sophisticated programming. 



THE SYNTHESIZER 

There's music in the Commodore 641 

The Commodore 64 uses a high quality synthesizer which 
rivals some dedicated music machines. Here again, the 
reason for these capabilities is a newly developed 
integrated circuit whose capabilities and possibilities we 
examine closely for you. 

All that's really missing is a piano keyboard to make a 
home organ out of the Commodore 64. With appropriate 
programming, this organ could outperform bigger and much 
more expensive ones. Some keyboards are beginning to appear 
on the market nov/. 

Another interesting possibility is connecting the Commodore 
64 to a stereo system. Music lovers will be delighted with 
the results. Their ears will be pleasantly surprised. 



THE CONTROL COMPUTER 

The Commodore 64 can be used for various kinds of control 
purposes provided it is appropriately interfaced. The 
electronic hobbyist and the industrial user can achieve an 
unusual amount of computer performance for their money. They 
will soon find a lot of areas where the Commodore 64 can be 
used. One of the areas described in this book is the use of 
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the paddle port as an A/D converter. Further hints are 
given in the description of the input/output control, found 
in Chapter 8. 

YOUR OWN COMPUTER 

Whether you bought the Commodore 64 for composing music, 
maintaining a mailing list or learning how to program. 
The Anatomy of the Commodore 64 will help you as you 
encounter Commodore 64 's fantastic capabilities. 

You v/ill find a range of applications for your computer 
which you never thought were possible. 
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CHAPTER Is MACHINE LANGUAGE PROGRAMMING ON THE COMMODORE 64 



1.1 Introductory Concepts 

The main programming language of the Commodore 64 is BASIC. 
It's a language that is "spoken" by many computers and with 
which the user can solve most all of his problems. The BASIC 
language was originally developed for the beginner. In the 
course of time it became more and more common, and now it is 
being used on almost all microcomputers. 

Today, most computer companies offer a version of BASIC 
written by the Microsoft Corporation. Since Microsoft BASIC 
is similar for most computers, it is not very difficult to 
rewrite programs for the Commodore 64. 

Actually, the BASIC language is not directly understood by 
the computer. Though you write programs in BASIC, the 
computer must first interpret the BASIC language statements. 
The computer creates shorthand commands from the commands 
that we enter at the keyboard and converts them into machine 
language that the 6510 processor of the Commodore 64 
understands. 

Why not write all your programs in machine language? Quite 
simple. Programming in machine language is time-consuming 
and error prone, especially for the beginner. Most BASIC 
statements are equivalent to dozens of machine language 
instructions. Therefore machine language programs are more 
lengthy than an equivalent program written in BASIC. Here's 
a small example: 

The 6510 CPU chip in the Commodore 64 can add numbers within 
the range of thru 255. To add numbers outside of this 
range, then you must perform multiple additions. In BASIC 
you might program like this: 



The whole operation can be entered as a single line. 
In machine language you would do the following: 



PRINT 6+5 



CLC 

LDA #$06 

ADC #$05 

JSR OUTPUT 



;clear carry flag 
;load accumulator with 6 
;add 5 to accumulator 
?print result 



;here are further commands 



OUTPUT 



LSR A 
LSR A 
LSR A 



PHA 



save the accumulator 
shift bits 7 thru 4 



to bits 3 thru 
unoccupied bits become 
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HEXASC 



LSR 
JSR 
PLA 
AND 
CLC 
ADC 
BCC 
ADC 
ADC 
JMP 



A 

HEXASC 



#$F6 

$04 

#$06 

#$3A 

$FFD2 



#$0F 



; transform numbers into characters 
;get accumulator from stack 
;mask bits 7 thru 4 
; clear carry flag 
;add 246 

;result <=255? yes-skip 
;add 6 decimal 
;add 58 decimal 
;output character 



So the same process of adding to number and displaying the 
results requires more programming when written in machine 
language • 

Hov7 does the computer understand these instructions. 

You probably know that there are two electrical conditions 
in the field of electronics: POWER ON and POWER OFF. 

We also find these conditions in computer technology. The 
smallest information unit in data processing is called a 
BIT (binary digit). Based on this idea, the binary number 
system was developed. The binary number system includes 
only two (binary) numbers: the 1 and the (where 1 stands 
for POWER ON and for POWER OFF). By combining strings of 
I's and O's you can create larger numbers. 

The 6510 processor contained in the Commodore 64 works with 
groups of 8-bit at a time. Within a byte, each bit position 
has a corresponding decimal value. These values are: 

bit position b7 b6 b5 b4 b3 b2 bl bO 

corresponding value 128 64 32 16 8 4 2 1 

Each bit position has ^ fixed value. Its value can be 
easily calculated by raising 2 to the power identical is 
position number: 



Using this scheme, numbers up to 255 can be represented. For 
example, the number 14 is represented as 00001110 and is 
equivalent to 0*128 + 0*64 + 0*32 + 0*16 + 1*8 + 1*4 + 1*2 + 
0*1. The number 117 is represented as 01110101 and is 



The value of 



b7 
b6 
b5 
b4 
b3 
b2 
bl 
bO 



2**7 
2**6 
2**5 
2**4 
2**3 
2**2 
2**1 
2**0 



128 
64 
32 
16 
8 
4 
2 
1 



(2**x is pronounced as 2 to the x power) 
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equivalent to 0*128 + 1*64 +1*32 + 1*16 +0*8 + 1*4 + 0*2 + 
1*1. 



The electronic circuitry of the 6510 processor is set to 
perform certain operation such as addition, subtraction, 
logical testing or branching in response to certain bit 
patterns. A set of bit patterns, carefully arranged to 
perform a desired set of operations is called a program. It 
is these programs which make the computer appear to 
understand. 

So binary number system is fundamental to understanding 
machine language. If you are not yet acquainted with this 
system, we would recommend one of the books from our 
bibliography. 

After this short introduction to the binary number system, 
we move onto actual machine language programming. 

Comparing BASIC and machine language, you should recognize 
that using machine language requires a different approach 
than regular BASIC programming. It is certainly not easy for 
the beginner to understand this new kind of programming. 
But if you want to master the computer you need to deal with 
machine language. 

For example, if you want to write a fast sort or search 
routine, you cannot do this with BASIC. For those who want 
to understand the operating system or to explore the 
underpinnings of BASIC, there is no other choice than using 
machine language. 

If you find that this chapter is too difficult for you to 
understand, don't hesitate to skip it for now. Later you 
can come back to these chapters to review the material. We 
have tried to design all chapters, even those that deal with 
machine language and assembler language programming, in a 
way so that even beginners can understand them. Many things 
will become clearer after you read them; others may still 
be confusing. For those want who to know more things about 
machine and assembler la^nguage programming, consult the 
bibliography. 



1.2 The MONITOR - and its uses 

In order to program in machine language you need a MONITOR. 
A monitor is a program that allows you to inspect and change 
the computer's memory and registers. Additionally you can 
save and load programs with the monitor. Some monitors allow 
you to disassemble memory (display the machine mnemonics 
from raw code) and lets you test and correct machine 
language programs. 
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Here we show you how to work with a monitor. The conunands 
illustrated are for the SUPEPMON monitor included with the 
ASSEMBLER/MONITOR package from ABACUS Software. But most of 
these commands are identical to the commands used by other 
monitors. 

After SUPERMON is loaded from diskette, you begin the 
monitor by typing RUN. The monitor identifies itself by 
printing C* and the contents of the 6510 registers on the 
screen. 

The registers are special memory locations contained in the 
6510 processor that allow a ^computer to perform arithmetic 
and logical operations, keep track of program locations, 
etc. 

The purpose of the individual registers are: 

Program counter: PC - keeps track of the address 
within the program that is to be processed next. 

Interrupt vector: IRQ - is the address of the 
routine that gains control when a program interrupt 
occurs. 

Status register: SR - contains indicators of 
conditions that have occured as the result of 
arithmetic or logical processing. 

Accumulator: AC - contains the results of 
arithmetic or logical operations; used to transfer 
data during input or output operations. 

The x-register: XR - index register used for 
differing ways to access memory 

The y-register: YR - index register used for 
differing ways to access memory 

The stack pointer: SP - contains the pointer to the 
top of the stack (work memory) 

After RUNning the monitor, the screen display looks like 
this: 

C* 

PC SR AC XR YR SP 
.; E145 31 40 E6 00 F6 

All data is displayed or entered into the monitor in 
hexadecimal number format. For those of you unfamiliar with 
hexadecimal notation, see APPENDIX B. 

If you v/ant to change the contents of any of the registers. 
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position the cursor over the appropriate "old value", type 
in the "new value" and press the RETURN key. 

The contents of memory can also be displayed and changed. To 
display the contents of a certain memory range, enter the 
command : 

M XXXX YYYY <RETURN> 

Where M stands for MEMORY, XXXX for the 4-digit starting 
address and YYYY the 4-digit ending address. 

Both addresses are entered as hexadecimal numbers. The 
contents of the memory locations XXXX thru YYYY are 
displayed. If the given memory range doesn't fit completely 
on the screen, the screen scrolls upward line by line. By 
pressing the STOP key, you get back in the command line. 

AS with the changing of the register contents, you can 
change individual memory locations. Simply place the cursor 
over the corresponding "old value", enter the desired "new 
value" and press the RETURN key. 

To enter a machine language program into memory use the M 
command to display the contents of a particular area in 
memory. Then position the cursor over the area of memory to 
be overlayed with the desired machine langauge instructions 
in their hexadecimal equivalents. 

The following is a display of a particular memory range: 



.M COOO COlO <RETURN> 

.: COOO A9 10 8D 16 03 A9 CO 8D 

.s COOS 17 03 A9 43 85 97 DO 16 

.: COlO A9 42 85 97 D8 4A 68 8D 



Memory can be displayed in another way by disassembling. 
Disassembling attempts to convert the hexadecimal contents 
of memory into the more easily understandable machine 
language instructions called mnemonics. Each 6510 machine 
language instruction is represented as a specific 
hexadecimal value. Disassembling converts these hexadecimal 
values into the corresponding mnemonics. 

You can disassemble the contents of the above memory range 
by entering the command: 

.D COOO C019 <RETURN> 

When the above area of memory is disassembled it would look 
like this: 

COOO: A9 10 LDA #$10 
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• An 


10 


UO 


STA 


c n o 1 c 
•>UilD 


COOS 








LDA 


f 9CU 


C007 


• o u 


1 7 




bl A 




COOA 


> AQ 

► ri3 






LDA 




rnnr 


> OD 


0*7 




STA 


$97 




» nn 


lb 




BNE 


$C026 


rn 1 n 

v-U JL U 








LDA 


#$42 






Q "7 

y / 




STA 


$97 


C014 , 


D8 






PT n 




C015J 


4A 






LSR 


A 


C016: 


68 






PLA 




C017: 


8D 


18 


03 


STA 


$0318 



Using the above as an example, the hexadecimal value A9 
stands for the mnemonic instruction LoaD Accumulator and the 
value 8D stands for the mnemonic instruction STore 
Accumulator. 

The next step after entering or changing a program in memory 
is program testing. You test you program by given the 
monitor this command: 

.G XXXX <RETURN> 

Here G stands for GOTO and XXXX for the 4-digit hexadecimal 
starting address of the routine to be tested. 

This command causes the monitor to jump to address XXXX and 
begin executing the the machine program that's written 
there. XXXX is any address within the Commodore 64's memory 
range. 

If the machine language program contains a BRK (BREAK) 
instruction (hexadecimal value 00), the monitor stops, 
identifies itself with B* and displays the register 
contents. 

Here the program counter PC contains the address after the 
BRK command. By inserting BRK instructions at various 
memory location of a machine language program, it is 
possible to test this program quickly and easily. After 
testing the program, you can replace the unneeded BRK 
instruction with the original instruction contained at thct 
memory location. 

You can also save or load machine langauge program to or 
from cassette or diskette. 

To save a machine program on cassette or diskette, enter: 

.S "NAME"^XX^YYYY»ZZZZ <RETURN> 

S indicates SAVE. For "NAME", you can enter any name for the 
program (the quotation marks are a must). XX is a two-digit 
device address ( 01-cassette , 08-d iskette ) , YYYY is the 
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starting address and ZZZZ the ending address of the program 
which must be hexadecimal. 

After pressing the RETURN key, the machine language progrem 
starting at address YYYY and ending at address ZZZZ is saved 
on the selected device. 

To LOAD program from cassette or diskette enter: 

.L "NAME"rXX <RETURN> 

Here L means LOAD and XX the device address discussed above. 
The address of the program is not needed. The program is 
loaded into the area of memory from which it was originally 
saved. 

When you are finished using the monitor you can exit to the 
BASIC interpreted by entering X. 

A monitor is an invaluable aid to the machine langauge 
programmer. If you are going to do any significant amount of 
machine language or assembler language programming, you 
should become very familiar with the monitor. 



1.3 How To Go About Programming in Machine Language 

If you are familiar with the monitor to some degree, you can 
now start with the actual programming. 

Programming can be divided into 5 parts: 

1. Firstly you must clearly spell out exactly what the 
program is to accomplish. You must decide on an 
approach to take in building that program. Unfortu- 
nately this step is often given too little thought. 
The programmer is too anxious to get to the pro- 
gramming step that the program suffers. The author 
hasn't clearly thought out the method. This step is 
vital regardless of the programming langauge used. 
It must be addressed for a program written in BASIC 
or a machine language or assembly language program. 

For example, suppose you decide that you need to 
compute the logarithm in base 10 of various 
numbers. You could approach this program in several 
ways: a) creating a table of logarithms and looking 
them up as needed; b) finding the logarithm from 
scratch by using a complex series of formulas; c) 
using a derivative of a builtin function. By using 
one of the builtin functions of the Commodore 64, 
you can create a very simple solution. This 
eliminates the need for a complex program, thereby 
simplifying the overall task to be done, namely to 
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compute the common logarithm for a given argument. 

2. Secondly you have to decide where in memory to 
place the machine language program. Most machine 
language programs run alongside a BASIC program. So 
you must make sure that the machine language 
program is protected from accident destruction by 
BASIC . 

The simplest way is to tell BASIC that it has only 
a certain amount of memory at its disposal. Thus 
BASIC can run concurrent with the machine language 
program, but will not overwrite the machine 
langauge program. 

Another possibility is to place the machine program 
into memory where it can't be reached by BASIC. 
With the Commodore 64 this is no problem. Of the 
64K RAM that Commodore 64 has, BASIC can address 
only 39K, while machine language has 52K at its 
disposal. 

3. Thirdly you have to write the program itself. We 
recommend using an assembler Without using an 
assembler you will have to hand-assemble the 
assembler language source statements. We'll leave 
it to you to find a way of generating the resulting 
machine language code. We advise you to keep your 
routines as short as possible if you must resort to 
hand assembly techniques. Also take advantage of 
the builtin routines that are described elsewhere 
in this manual. They will save you much time and 
effort. 

4. Forthly you have to decide how you will place the 
resultant machine language program into memory. One 
way is to POKE the resultant program into memory 
from a BASIC program. An alternative v/ay is to use 
a machine language monitor as previously described. 
An assembler program lets you assemble code 
directly into the computers memory. 

5. Lastly you have to decide how you v/ill test your 
new program. It isn't too often that we v/rite a 
program which runs correctly the first time that we 
try it. Once again, the machine language monitor 
offers some help in testing these programs. By 
inserting the BRK instructions into the program to 
be tested, you can cause the program to temporarily 
halt execution. At this time you may examine the 
contents of memory and registers and alter them if 
you desire. Then you can continue the execution of 
the program from this breakpoint. If you don't use 
a monitor, then you will have to test blindly. A 
single bad instruction in the program could hang up 
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the Commodore 64 forcing you to turn it off and 
back on to recover from the error. 



By following these five steps ^ you are creating a careful 
plan and not a haphazard attempt at your problem solving. 
Use good programming sytle right from the start I 

The following is an example planned program development. 

First we state the objective of our program: To type a line 
of text in at the keyboard and then redisplay all of the 
text up to the <RETURN> key. 

To simplify the program, we will use some bull tin routines 
thar are part of the Commodore 64 ROMs. 

Next we have to decide where this program is to be placed in 
memory . 

One place for a machine program with a maximum length of 4K 
is a block of 4K RAM in the upper part of memory ($C000 
upwards). In that location, the program can't be destroyed 
by BASIC. 

Alternatively you locate a machine language program in 
memory that BASIC can access if you first protect this area. 
From BASIC this is done as follows: 

POKE 55, XXX 
POKE 56,YYY 
CLR 

v/here XXX and YYY are decimal numbers between and 255. 
POKE 55, XXX sets the least significant byte and 56, YYY the 
most significant byte (b4 ,b5,b6,b7 ) of the new "memory limit". 

When the Commodore 64 is first turned on, memory location 55 
contains the value and memory location 56 the value 160. 
Memory location 55 holds the least significant byte and 
memory location 56 the most significant byte of the memory 
limit of BASIC. If you convert these numbers into 
hexadecimal, you find the value $A000. This is the normal 
ending address of BASIC. By poking a different value into 
these two locations, you can make BASIC think that it has 
less memory to v/ork with. For example, you can POKE 55,0: 
POKE 56,144 to set the new memory limit to $9000. BASIC will 
think that the top of its memory is $9000. 

Let's say that we want our program to begin starting at 
address 49152 ($C000) in a place inaccessible to BASIC. The 
program will then look like this: 
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ADDR 


VALUE 


LABEL 


OPC 


OPERAND REMARKS 


0000 










ORG 


$C000 




COOO 








BASIC 


EQU 


$A474 




COOO 








CLRSCR 


EQU 


$E544 




COOO 








GET 


EQU 


$FFE4 




COOO 








STROUT 


EQU 


$AB1E 




COOO 


20 


44 


E5 


START 


JSR 


CLRSCR 


•CLEAR SCREEN 


COOS 


A2 


00 






LDX 


#$00 


?ZERO LENGTH 


coos 


8E 


2F 


CO 




STX 


SAVEX 


?SAVE IT 


coos 


20 


E4 


FF 


LOOP 


JSR 


GET 


?READ KEYBOARD 


COOB 


C9 


00 






CMP 


#$00 


?KEY PRESSED? 


COOD 


FO 


F9 






BEQ 


LOOP 


'NO-BACK! 


COOF 


AE 


2F 


CO 




LDX 


SAVEX 


fYES-RESTORE LENGTH 


C012 


C9 


OD 






CMP 


#$0D 


•RETURN KEY? 


C014 


FO 


OA 






BEQ 


OUT , 


'YES OUTPUTl 


C016 


9D 


30 


CO 




STA 


BUFF,X i 


NO-SAVE CHARACTER 


C019 


E8 








I NX 




'LENGTH TEXT +1 


COIA 


8E 


2F 


CO 




STX 


SAVEX ; 


SAVE LENGTH 


COID 


4C 


08 


CO 




JMP 


LOOP ; 


READ AGAIN 


C020 


A9 


00 




OUT 


LDA 


#$00 ; 


PLACE $00 AT END 


C022 


9D 


30 


CO 




STA 


BUFF,X ; 


OF TEXT 


C025 


A9 


30 






LDA 


#<BUFF J 


LSB OF TEXT START 


C027 


AO 


CO 






LDY 


#>BUFF ; 


MSB OF TEXT START 




20 


IE 


AB 




JSR 


STROUT ; 


PRINT STRING 


C02C 


4C 


74 


A4 




JMP 


BASIC ; 


RETURN TO BASIC 


C02F 


00 






SAVEX 


BYT 


J 


X-REG SAVE 


C030 


00 






BUFF 


DST 


80 ; 


RESERVE 80-BYTES 



The memory excerpt with the monitor looks like this: 



>M COOO C028 

>: COOO 20 44 

>: C008 20 E4 

>: COlO 2F CO 

>: C018 CO E8 

>: C020 A9 00 

.: C028 CO 20 



E5 A2 00 8E 2F CO 

FF C9 00 FO F9 AE 

C9 OD FO OA 9D 30 

8E 2F CO 4C 08 CO 

9D 30 CO A9 30 AO 

IE AB 5C 74 A4 00 



Our program is 48 bytes long. It uses only a few 
instructions of the total 6510 instructions available. 

The program is being started from BASIC with the command: 

SYS 49152 

The purpose of this SYS command is to call a machine 
language program that begins at memory location 49152 
($C000). If the machine language program has errors in it, 
your computer program may "crash" and become inoperable. In 
this case, you have no alternative but to turn the computer 
off, and then back on again. 
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By the way, you can also use the SYS command to call 
routines in operating system (see Chapter 1.4). By using the 
builtin routines, you can save a lot of time and effort in 
your programming. 

Now experiment with your own programs. 



1.4 Useful addresses of the COMMODORE 64 ROMS 

If you write your own programs in machine language, you can 
save a lot of time by taking advantage of the ROM routines 
that are built into the Commodore 64. Especially useful are 
the routines for accessing the peripheral devices such as 
the printer or floppy disk. 

The most important routines of the Commodore 64 are 
summarized in a jump table located at the end of memory. 
This jump table contains the memory locations of commonly 
used routines of the operating system and is also called the 
KERNAL. Commodore has promised not to change these addresses 
as new Commodore computers appear on the market. Therefore 
it should be possible to transfer program to newer Commodore 
computers as they are introduced if these Kernal routines 
are used. The jump table of the Commodore 64 is for the most 
part identical with the VIC 20, so it is easy to convert VIC 
20 programs to work with the Commodore 64 with the help of 
these routines. 

NOW V7e take a closer look at some of these routines: 



ADDRESS FUNCTION 



$FF90 

$FF93 
$FF96 
$FF99 

$FF9C 



controls the output of kernal messages 

if bit 6 is set - control messages from kernal 

are displayed. 

if bit 7 is set - error messages from kernal are 
displayed. 

sends secondary address over the serial bus 
after LISTEN command 



sends secondary address over the 
after TALK command 



serial bus 



if carry flag set - returns the highest RAM 
address to X and Y registers; 

if carry flag is reset - sets the highest RAM 

address to that contained in X and Y registers; 



if carry flag is set - returns the 
address to X and Y registers; 



lowest RAM 
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if carry flag is reset - sets the lowest RAM 
address to that contained in X and Y registers; 

$FF9F SCAN keyboard for pressed keys 

$FFA2 sets the time-out flag for the serial bus 

$FFA5 transfers data from the serial bus to the 

accumulator 

$FFA8 transfers data from the accumulator to the 

serial bus , 

$FFAB sends UNTALK command to the serial bus 

$FFAE sends UNLISTEN command to the serial bus 

$FFB1 sends LISTEN command to the serial bus 

$FFB4 sends TALK command to the serial bus 

$FFB7 returns the I/O status word to the accumulator 

$FFBA sets the file parameters: accumulator = logical 
file number; X-reg = device number , Y-reg = 
secondary address 

$FFBD sets parameter for filename r accumulator = 
length of name^ X-reg and Y-reg = address of the 
filename 

$FFCO OPEN logical file 

$FFC3 CLOSE logical file, accumulator = logical file 
number 

$FFC6 CHKIN prepares a logical file for input. The 
logical file has to first be OPENed. 

$FFC9 CHKOUT prepares a logical file for ouput. The 

logical file has to first be OPENed 

$FFCC CLRCH resets input/output to the default devices 

(keyboard/screen) • 

$FFCF BASIN transfers a character from input device to 
the accumulator, 

$FFD2 BSOUT transfers a character from the accumulator 

to the output device. 

$FFD5 LOAD program into memory 

$FFD8 SAVE programs from memory 
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$FFDB resets the system clock. A,X and Y registers 
contain the number of jiffies. 

$FFDE reads the system clock into A,X and Y registers. 

$FFE1 checks to see if STOP key is depressed 

$FFE4 GET, gets a character into the accumulator 

$FFE7 CLALL closes all open files 

$FFEA - updates the system clock 

$FFED returns the number of columns/rows on the screen 
in X and Y registers 

$FFFO if carry flag is set - returns cursor position 

in Y-reg (# of columns) and X-reg (# of rows) 
if carry flag is reset - sets cursor position to 
row in X-reg and column in Y-reg. 

$FFF3 returns the starting address of the I/O 

component 



There are other routines available for manipulating the 
screen. The more important routines are listed below: 

ADDRESS FUNCTION 

$E518 completly reset the screen and the keyboard 
$E544 CLR - clear the screen 

$E566 HOME - position the cursor to the upper left 
corner of the screen 

$E56C calculates the cursor position and places its 
address at $D1-D2 (209-210 decimal). 

$E5A0 loads the video controller with the standard 
values 

$E5B4 gets a character from of the 10-byte keyboard 
buffer 

$E5CA waits for keyboard input 

$E8EA scrolls screen up one line 

$E9FF blank one screen line designed by X-reg. 

$EA1C sets a character in color on the screen at 
current cursor position (screen code in the 
accumulator and color in X-reg) 
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1.5 DATA INPUT/OUTPUT FROM MACHINE LANGUAGE PROGRAMS 



There are two ways to perform data input or output from 

machine language programs on your Commodore 64. You can 

write the routines yourself or you can use the routines that 
are part of the builtin operating system. 

This section describes how you can use the routines that are 

part of the operating system. The biggest advantage of 

using these builtin ROM routines is that they are already 
written and are proven to work correctly. 



1.5.1 Input and Output of Single Characters 

The two basic routines for inputting or outputting data are 
called: 

BASIN which is located at $FFCF and inputs a character 

and 

BSOUT which is located at $FFD2 and outputs a character 

The bytes to be input or output are transferred via the 
accumulator. 



Example: Output 12-byte string of text to the screen. 



OUTPUT 


LDX 


#0 


;zero index register 


LI 


LDA 


TEXT,X 


;get one character text 




JSR 


BSOUT 


;and display it on screen 




INX 




;point to next character 




CPX 


#12 


;all characters yet? 




BNE 


LI 


; no-keep going 
;yes-we're done 




RTS 




TEXT 


ASC 


' EXAMPLE TEXT' 





Input is performed similarly. For instance ^ if text is to be 
entered from the keyboard , the cursor flashes and each 
character is accepted until the RETURN key is pressed. 



INPUT 


LDX 


#0 


;zero index register 


LI 


JSR 


BASIN 


;get a character from keyboard 




STA 


TEXT^X 


;and save it 




INX 




;point to next character 




CMP 


#13 


; RETURN key pressed? 




BNE 


LI 


;no, get more characters 
;yes-we're done 




RTS 




TEXT 


DST 


80 


; space for saving the text 



When writing onto the screen ^ you can take full advantage of 
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the screen control characters. For instance, you can use 
the control character for clearing the screen or changing 
the character colors. The appropriate control code is loaded 
into the accumulator and sent to the output routine (BSOUT) . 



Example: clear screen 



LDA 
JSR 



#147 
BSOUT 



;code for clearing the screen 
;output 



For the screen output there are some additional, helpful 
routines which can simplify your programming. The routine 
for clearing the screen can be called directly - 



JSR CLRSCR 



;located at $E544 



A routine for homing the cursor is: 

JSR HOME ; located at $E566 



If you want to place the cursor at 



specific screen 



position: 
LDX 
LDY 
CLC 
JSR 
LDA 
JSR 



#LINE ;line number, to 24 

#COL ; column number, to 39 

7 set carry clear = cursor 
CURSOR ;position cursor $FFFO 

#»A ; character to be output 

BSOUT ;output 



The routine called CURSOR has two functions. When called 
with carry flag clear (as in the above example), it 
positions the cursor at the line and the column that are in 
the X and the Y register. If CURSOR is called with the 
carry flag set, the current cursor position is returned to 
you in the X and Y registers. 

Once again here are the addresses of the routines used above: 

BASIN $FFCF 

BASOUT $FFD2 

CLRSCR $E544 

CURSOR $FFFO 

HOME $E566 



1.5.2 Input and Output Using Peripheral Devices 

For input and output using peripheral devices the operating 
system contains the necessary routines. 

The peripheral are assigned a device number from to 15. 
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NUMBER 

1 
2 
3 

4-15 



DEVICE 

keyboard 

datasette 

RS 232 interface 

screen 

devices of the serial bus 



In addition to this device number, there may be a secondary 
address which further specifies information required by the 
peripheral device and a file name. To establish a connection 
to the peripheral, you must OPEN a file. 

The OPEN command specifies a logical file number, a device 
number and the optional secondary address. So as to avoid 
specifying the peripheral device number each time you want 
to transfer information, only the logical file number is 
used after the OPEN is complete. The logical file number 
then refers to the device number and secondary address with 
which it was OPENed. 

Again, before any transfer of information can happen to or 
from peripheral devices, a file must be OPENed. You can 
OPEN a file from BASIC or from a machine language program. 

To OPEN a file from a machine language program you must 
first set the file parameters. You must place the logical 
file number in memory location $B8 (184); the device number 
in $BA (186), secondary address in $B9 (185); length of file 
name in $B7 (183) (zero if no file name is given); and the 
address of the file name in $BB/$BC (187/188). Then the you 
may call the routine to OPEN a file at $FFCO. 

The kernal contains several routines to set the file 
parameters. The routine SETLFS ($FFBA) sets the logical file 
number, device number and secondary address. The routine 
SETNAM ($FFBD) sets the filename for OPEN, LOAD and SAVE 
routines. The following example illustrates the use of these 
routines : 



NAME 
LNAME 



LDA 


#1 


LDX 


#8 


LDY 


#4 


JSR 


SETLFS 


LDA 


# LNAME 


LDX 


#<NAME 


LDY 


#>NAME 


JSR 


SETNAM 


JSR 


OPEN 


ASC 


•FILEl 


BYT 


5 



; logical file number in accumulator 
;device number in X-register 
;secondary address in Y-register 
; located at $FFBA 
; length of filename 
;low order address of filename 
;high order address of filename 
; located at $FFBD 
;located at $FFCO 



;this is the length of filename 
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Before writing output to an OPEN file you must: call the 
routine CHKOUT ($FFC9) in order to ready the output path to 
the peripheral associated with the logical file number; 
place the data to be transferred into the accumulator; and 
call BSOUT ($FFD2) to output the data. 

Here's a short program that does this: 

LDX #LF ;logical file number 

JSR CHKOUT ;$FFC9 

LDA DATA ;place data into accumulator 

JSR BSOUT ;write data to output file 



All output is directed to this device until the routine 

CLRCH is called. CLRCH reset the standard ouput to the 

screen, so that subsequent calls to BSOUT results in the 
data being sent to the screen, 

JSR CLRCH ;$FFCC reset output to screen 

If you want to input data from a file: call the routine 

CHKIN ($FFC6) in order to ready the input path to the 

peripheral associated with the logical file number; and call 

BASIN ($FFCF) to input the data. BASIN will return the data 
in the accumulator. 

LDX #LF ;file number of the input device 

JSR CHKIN ; located at $FFC6 

JSR BASIN ; located at $FFCF 

STA DATA ;save the data 

All data is input from this device until the routine CLRCH 
is called. CLRCH reset the standard input to the keyboard r 
so that subsequent calls to BASIN results in data being 
input from the keyboard. 

When CLRCH is called, all files remain open. CLRCH merely 
redirects input and output to or from the standard devices 
of the Commodore 64 (keyboard and screen respectively) . 

When you are finished using an input or output file, you 
must close each using the routine CLOSE ($FFC3). 

LDX #LF ; logical file number 

JSR CLOSE ;located at $FFC3 



The alternative is to close all of the files by using the 
routine CLALL ($FFE7). 

JSR CLALL ;close all open files 
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1.5.3 Saving and Loading Data 



For saving data and programs, the Commodore 64 offers you 
both tape and disk for secondary storage. Since both devices 
operate quite differently they are described separately. 

1.5.3.1 Saving Data on Cassette 

A cassette recorder allows sequential recording of data and 
reading it in that same order. You must read through all 
the data on a tape until you encounter the desired data. 
Likewise, you cannot change data written to a tape. You can 
only read the file completely through, change it in the 
computer's memory, and then rewrite the entire file onto the 
tape. 

Since saving or loading programs requires only sequential 
writing or reading, a cassette recorder is a suitable medium 
for program storage. The major disadvantage or cassette is 
the slow speed of data transfer. 

For reliability, data is written to the tape redundantly. 
Later, if errors are detected when reading the tape, the 
redundant data can be used to correct the errors. 

Let's take a closer look at the technique of writing data to 
tape. 

A file is written to tape in three parts. First a 
synchronizing sound is written to the tape. The enables the 
Commodore 64 to prepare itself for subsequent data transfer. 
Next a header is written to the tape. The header contains 
identifying information about the file that follows. Finally 
the data is written to the tape. This data is written 
redundantly. 

Since various forms of data can be saved to tape, there must 
be a way to distinguish them from one another. This is the 
purpose of the header. The header contains the following 
information: 

position 

within header Value 

1 type of header 

value: meaning: 

1 BASIC program - it is 
loaded starting at the 
BASIC address 

2 data block - bytes 
2-192 contain the data 

3 machine language program 
loaded at absolute addr 

4 data header-data follows 
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5 end-of-tape block - 



denotes end of tape 



2-3 
4-5 
6-21 



staring address (low, high) 
ending address (lowrhigh) 
file name 



For header types 1 (BASIC program) or 3 (machine language 
program) , the header specifies the starting and ending 
addresses of the program and the program name. The program 
itself is contained in the next block. It is recorded 
redundantly (twice). 

For header type 1, the starting address specified in the 
header is ignored, and the BASIC program contained on the 
tape is loaded beginning at the starting address of BASIC 
(normally $800). By using a secondary address of 1 during 
loading, you can override the starting address of BASIC and 
force the program to be loaded at the starting address 
indicated in the header. This is absolutely necessary when 
loading machine language programs, since such programs can 
only run in the memory area for which they were written. 

SAVE "PRGM1",1 SAVE BASIC PROGRAM 

SAVE "PRGK2",1,1 SAVE PROGRAM AS MACHINE LANG. 



For header type 3, a program is loaded into the Commodore 64 
beginning at the starting address specified in the header. 
For header type 2, data (not a program) is written to the 
cassette tape in blocks of 192 characters at a time. This 
avoids the time consuming process of starting and stopping 
the cassette drive each time a character is to be 
transferred. As each PRINT# command is performed, instead of 
writing single characters to the tape, the data is collected 
in a tape buffer until 192 such characters have been 
collected. When the tape buffer is full, the data in the 
buffer is written to the tape. The buffer is then emptied 
and readied for the next 192 characters. The tape buffer is 
located at the address 828 thru 1019 ($33C - $3FB) . 

When reading from a tape file using INPUT# or GET#, instead 
of reading single characters from the tape, a data block is 
read into the tape buffer. Each character read with INPUT# 
or GET# is retrieved from the data in the tape buffer. When 
all 192 characters of the block have been processed, the 
buffer is said to be empty and the next block of data is 
read from the tape and into the tape buffer. 

Saving a program with a secondary address of 2 or 3 also 
writes an end-of-tape block after the program is recorded. 
An end-of-tape block will prevent the Commodore 64 from 
searching for any program on the tape that may have been 
recorded beyond the end-of-tape block. 
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Summarizing all the relations in a table again: 



LOAD 

LOAD "NAME",1 - loads BASIC program, at the start 

of BASIC. Type 3 header is loaded 
absolutely. 

LOAD "NAME", 1,1 - loads every program absolutely 



SAVE 

SAVE "NAME",1 - saves a BASIC program 

SAVE "NAME", 1,1 - saves a machine program 

SAVE "NAME", 1,2 - saves a BASIC program with an 

additional EOT block 
SAVE "NAME", 1,3 - saves as machine program with an 

additional EOT block 



When opening a tape data file for processing the secondary 
address has the following meaning: 

OPEN 1,1,0 "NAME" - opens file for reading 
OPEN 1,1,1 "NAME" - opens file for writing 
OPEN 1,1,2, "NAME" - opens file for v/riting with an 

additional EOT block 



The CLOSE command performs the necessary housekeeping for 
the file. If the file was open for writing, a zero byte is 
written into the tape buffer and the buffer is written onto 
the tape. Thus it is absolutely necessary to CLOSE a tape 
file. Otherwise, the final data is not written to the tape. 

There are also restrictions concerning data transfer onto 
tape. Nbrmally data is written onto the tape in ASCII 
format (letters, digits, arid special symbols). If data is 
written with PRINT#1, CHR$(I), not all possible symbols can 
be written. In particular, CHR$(0) is filtered out, because 
it is used as an end symbol by the operation system. 



1.5.3.2 Saving Data on Diskette 

A diskette is divided into tracks and sectors which can be 
accessed individually. That makes it possible to have direct 
access to data without having to read thru all the other 
data. 

Programs are saved as follows. The address of the program 
are transferred to the program file on diskette. The address 
is sent least significant byte first follov/ed by the most 
significant byte. Then the program itself is transferred. On 



23 



disk, there is no difference between saving a BASIC program 
or a machine language program. A distinction is only made 
when LOADing the program. 

LOAD "NAME", 8 loads BASIC program at start of 

BASIC address 

LOAD "NAME"r8rl loads BASIC program starting at the 
saved starting address 



If you want to find the starting address of a program that 
is contained on a diskette, you can use this little program: 

10 OPEN 1,8,1, "NAME" :REM program file for reading 

20 GET#1, AS, B$ :REM get start address 

30 IF A$ = " " THEN A$ = CHR$(0) 
40 IF B$ = " " THEN B$ = CHR$ ( ) 

50 PRINT ASC(A$)+256*ASC(B$) :REM decimal address 
60 CLOSE 1 

The starting address of the program is printed out in 
decimal. The test for a null string in lines 30 and 40 is 
necessary, because the GET command does not accept a byte 
with a zero value. 

If you want to write a machine language program to diskette, 
you can do it like this: 

10 OPEN 1, 8,0, "NAME, P,W" :REM program file 

20 PRINT#1, CHR$(AD-INT(AD/256)*256) ? :REM address low 

30 PRINT#1, CHRS ( AD/256 ) ; :REM start address high 

40 FOR 1=0 TO N-1 tREM save N bytes 

50 PRINT#1, CHR$(PEEK(AD+I)); :REM this is your 

60 NEXTI -REM program data 

60 CLOSE 1 2REM close program file 

The variable AD contains the starting address of the machine 
language program and the variable N contains the length of 
the program in bytes. 

How do you save programs or areas of memory from within a 
machine language program? 

Here again we have two operating system routines can be 
used: 

LOAD $FFD5 
SAVE $FPD8 

The LOAD routine is used in the following way: 

The name of the file and the appropriate device number must 
be set using the kernal routines SETFLS ($FFBA) and SETNAM 
($FFBD). The accumulator is loaded with zero to indicate 
that a LOAD is to be performed. If LOAD is called with 1 in 
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the accumulator, VERIFY is performed instead of LOAD. 

The secondary address determines where in memory the loading 
is to take place. If the secondary address is 1 or 2, the 
program is loaded at the address from which the program was 
saved. If the secondary address is zero, the program is 
loaded at the address specified by the X and Y registers 
( low/high) . 

Example: Loading of a machine program from diskette, to the 
original address. 



LDA 


#8 


; logical file number 


LDX 


#8 


; device number of the floppy 


LDY 


#1 


; secondary address 


JSR 


SETFLS 


; located at $FFBA-set file parms. 


LDA 


#5 


; length of the file name 


LDX 


#<NAME 


;address of the file name 


LDY 


#>NAME 


;high byte of the address 


JSR 


SETNAM 


; located at $FFBD-set file name 


LDA 


#0 


;LOAD flag 


JSR 


LOAD 


;load program 


STX 


ADR 


;end address low 


STY 


ADR+1 


;end address high 



NAME ASC 'FILEl' 



Note that the LOAD routine returns the ending address of the 
loaded program in the X and Y registers. 

In the following example, a program is loaded from the tape. 



starting at 


address 


$6000. The saved address is ignored. 


LDA 


#1 


; logical file number 


LDX 


#1 


;device number cassette recorder 


LDY 


#0 


; secondary address 


JSR 


SETLFS 


;at $FFBA-set file parameters 


LDA 


#5 


; length of the file name 


LDX 


#<NAME 


;address of file name 


LDY 


#>NAME 


;high byte of address 


JSR 


SETNAM 


;at $FFBD-set parms for file name 


LDA 


#0 


; LOAD- flag 


LDX 


#$00 


;load address low 


LDY 


#$60 


;load address high 


JSR 


LOAD 


;load program 


STX 


ADR 


;end address low 


STY 


ADR+1 


;end address high 



NAME ASC 'FILE2' 
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If a machine program is to be loaded with LOAD from a BASIC 
program, you will encounter a few difficulties. 

You can load a program at an absolute address by using a 
secondary address of during OPEN, but there still is a 
problem. After every LOAD, the ending address of the load 
is set equal to the ending address of the BASIC program and 
program execution starts at the beginning of the program. 
This makes sense for reloading of BASIC programs (overlay), 
but it creates problems when loading of machine language 
programs or the contents of a range or memory. In such a 
case, you can use a small machine language program (such as 
in the previous example) that you can call from the BASIC 
program by SYS. 

Saving programs and any memory ranges with the SAVE routine 
happens similarly. In addition to the device number and file 
name information, the SAVE routine has to know the starting 
and the ending address of the program. The starting address 
kept in zero page in two consecutive memory locations (low 
and high byte). The address of this zero page location is 
transferred to the SAVE routine via the accumulator. The 
ending address is in the X-register (low byte) and the Y- 
register (high byte). 

Suppose we now want to save the memory range from $C000 
through $CFFF on a diskette under the name "PGRMB". The 
starting address of the program is in $FB/$FC. 



LDA 


#1 ; 


logical file number 


LDX 


#8 ; 


device number of the floppy 


LDY 


#0 ; 


secondary address 


JSR 


SETLFS ; 


at $FFBA-set file parameter 


LDA 


#5 J 


length of file name 


LDX 


#<NAME J 


address of file name 


LDY 


#>NAME 


high byte of address 


JSR 


SETNAM 


►at $FFBD-set parms for file name 


LDA 


#$co 


•address high of the start 


STA 


$FC 


of the program 


LDA 


#$00 


•address low of the start 


STA 


SFB 


*f of the program 


LDA 


#$FB 


^pointer on start address 


LDX 


#$00 


;en6 address +1 low 


LDY 


#$D0 


?end address +1 high 


JSR 


SAVE 


?save program 



NAME ASC 'PGRMB' ;file name 



In the above example, the ending address of the program is 
passed to the SAVE routine in the X and Y registers. 

As a final example, here is how to save a BASIC program 
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v/ithout a file name but with EOT symbol on tape: 



LDA 
LDX 
LDY 
JSR 
LDA 
JSR 
LDA 
LDX 
LDY 
JSR 



#1 
#1 
#2 

SETLFS 
#0 

SETNAM 

#$2B 

#$2D 

#$2E 

SAVE 



; logical file number 
;device number of the recorder 
; secondary address for EOT 
;at $FFBA-set file parameter 
;no file names 

;at $FPBD-set parms for file names 
;pointer to BASIC program start 
;end address low of the program 
;end address high 
;save program 



1.5.4 Programming the RS-232 Interface 

The Commodore 64 has an RS-232 interface for connection to 
any peripheral device that follows the RS-232 protocol. 
There are hundreds of devices on the market that use RS-232. 
These include printers, modems, plotters and A/D 
controllers . 

The RS-232 interface transfers data serially. What does 
serial transfer mean and when is it used? The Commodore 64 
stores data in characters consisting of 8 bits. When a 
character is to be sent to or received from a peripheral 
device by a serial method, each of the 8 bits are 
transferred one bit at a time. 

In contrast, a character can also be sent using a parallel 
method of transfer. Here, all 8 bits are sent or received 
from a peripheral device at one time. The advantage of 
parallel transfer is that it is faster than serial transfer. 
But parallel transfer is also more expensive as each bit 
must have its own line over v/hich to transfer the 
information. Using serial transfer, fewer lines are required 
as each bit waits its turn to be sent to the peripheral 
device . 

The kernal of the Commodore 64 contains softv/are necessary 
to use the RS-232 interface. You can purchase a standard RS- 
232 connector as an add-on module, which can then be plugged 
into the USER port. With this RS-232 connector, the 
Commodore 64 is ready to communicate with any standard RS- 
232 device. 

The RS-232 interface is assigned a device number of- 2. When 
a logical file using device number 2 is OPENed, the kernal 
sets aside two buffers of 256 characters each for use by the 
RS-232 device. One buffer is used for data that is inputted 
from the peripheral and the second buffer is used for data 
that is outputted to the peripheral. 

These buffers are normally set aside in memory at the end of 
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BASIC RAM. If the RS-232 interface is used from a BASIC 
program you should OPEN the RS-232 device before allocating 
any string variables. If not, when the RS-232 device is 
OPENed and the two buffers are allocated , then the string 
variables are overwritten and destroyed. 

Also note that only one channel can be OPENed at one time 
for the RS-232 interface. 

The characteristics of the RS-232 interface can adjusted 
when the channel is OPENed. This is done by setting both a 
control register and a command register. 

The control register serves to define the baud rate, the 
number of data bits and the number of stop bits that are to 
be transferred. The baud rate determines the speed of the 
data transfer in bits per second. The number of data bits 
determines the length of each v7ord (or character) that is to 
be transferred. The number stop bits are the number of bits 
to be sent after each word. 



In the control register, the lov/er 4 bits determine the baud 
rate according to the following table: 



BIT 3 2 10 



DECIMAL BAUD RATE 




1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 



set by user 
50 
75 
110 
134.5 
150 
300 
600 
1200 
1800 
2400 

3600 (not 
4800 (not 
7200 (not 
9600 (not 
19200 (not 



(not implemented) 



implemented ) 
implemented ) 
implemented) 
implemented ) 
implemented) 



You can program the RS-232 interface to use baud rates 
betv/een 50 and 2400. The number of data bits are determined 
by bit 5 and 6. 



BIT 6 5 DECIMAL NUMBER OF DATA BITS 

8 bits 

1 32 7 bits 

1 64 6 bits 
11 96 5 bits 
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The number of stop bits is determined by bit 7, 
BIT 7 DECIMAL NUMBER OF STOP BITS 
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The command register determines the transfer mode, type of 
parity and mode of handshake. 

The command register is organized as follows: 



BIT 



DECIMAL 



HANDSHAKE 



3-wire handshake 
X-v/ire handshake 



BIT 4 



DECIMAL 



TRANSFER MODE 




16 



full duplex 
half duplex 



BIT 7 6 5 



111 



DECIMAL 



X X 

1 32 

Oil 96 

10 1 160 



224 



PARITY CHECK 



no parity check, no 8th 
data bit 
odd parity 
even parity 

no parity check, 8th data bit 
always 1 

no parity check, 8th data bit 
always 



Let's try an example. Suppose you want to OPEN an RS-232 
data channel, with the following parameters: 



parameter 



value in decimal 



transfer rate 2400 baud 

8 bit ASCII data 

2 stop bits 

no parity check 

8th data bit alv^ays 

full duplex 

3-wire handshake 



10 


128 


224 





The OPEN directions would then look like this: 
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OPEN 1,2,0, CHR$ ( 10+0+128 ) +CHR$ ( 0+0+224 ) 



Input and output are handled the same as with other 
peripheral devices. BASIN and BSOUT transfer data to or from 
the RS-232 device. 

The only difference is the status register (ST). When using 
RS-232, the status register returns a different set of 
errors than v/hen using other input or output devices. 

Reading the status variable ST from BASIC clears the status 
each time it is read. Therefore you should always assign the 
status variable to another variable if you want to remember 
its value. 

Reading the status variable from a machine language program 
does not clear the status. 

ST gives you only the RS-232 status for data exchanged over 
the RS-232 interface. The meaning of the different bits of 
the RS-232 status is described below. If a particular bit 
is set (on), then that particular condition has occurred. 



If you using the RS-232 interface from a machine language 
program, you can place the input and output buffers for data 
transmission anywhere in memory. 

The pointers to these buffers are set during the OPEN 
command, but may be moved after the OPEN is complete. These 
pointers are located in zero page: $F7/$F8 points to the 
input buffer and $F9/$FA points to the output buffer. 
Programming the RS-232 is similar to programming for any 
other input or output device except that the device number 
is 2. 

Other important addresses for RS-232 input/output are: 



BIT 



DESCRIPTION 




1 
2 
3 
4 
5 
6 
7 



parity mistake 
frame mistake 
receiver buffer full 
unused 

CTS (clear to send) signal missing 
unused 

DSR (data set ready) signal missing 
break signal received 



$0293 
$0294 
$0298 
$0297 



control v7ord 
command v/ord 

number of data bits, computed at OPEN 
PS-232 status v/ord 
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1.5.5 The Serial Bus 



In order to communicate with peripheral devices, the 
Commodore 64 has a serial bus to which several devices can 
be connected at the same time. From a programming 
standpoint, the bus is similar to the IEEE-488 bus of 
earlier Commodore computers (PET, 8032, 4032, etc.). But the 
data is transmitted bit by bit over the serial bus. This is 
unlike the IEEE-488 which transmits data in parallel. The 
transmission speed of the serial bus is therefore 
considerably slower. 

First we explain the concept of the serial bus. 

Since several devices can be connected to the serial bus at 
the same time, there must to be a way of distinguishing one 
device from another. This is the purpose of the device 
number. The Commodore 64 assigns device numbers 4 thru 31 
to the serial bus. 

When a device is addressed, the Commodore 64 (called the bus 
controller) sends an attention signal (called ATN) over the 
bus. This alerts all connected devices that they should be 
aware that communication is being established with one of 
them. Next the Commodore 64 sends device number of the 
desired device over the bus. If the device is attached to 
the bus, then it responds to the ATN, otherwise we get a 
message DEVICE NOT PRESENT. 

Next, the device is informed that it is to either receive 
data from or transmit data to the Commodore 64. If a device 
is to receive data, then the Commodore 64 sends a LISTEN 
command to the device. If a device is to send data, then the 
Commodore 64 sends a TALK command to the device. 

A secondary address may also be sent to the device to 
perform any necessary setup. For example: OPEN 1,4,7 
transmits secondary address 7 to the printer (device 4) 
which selects UPPER/LOWER case mode for printing. 

Now the data can be sent to the device or received from the 
device. In order for the data transmission to function 
accurately, data is transmitted one character at a time. The 
receiver of the data informs the sender when the data has 
been successfully accepted. Only when the receiver 
acknov/ledges the receipt of the data may the sender transmit 
another character of data. This procedure is called 
handshaking and insures the integrity of the data as it 
transmitted. 

When the data transmission is complete, the device is 
deaddressed: if the device was sending data, the Commodore 
64 sends it an UNTALK command; if the device v/as receiving 
data, the Commodore 64 sends it an UNLISTEN command. At 
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this point, the bus is free to handle the next transmission. 

Now we move on to programming the serial bus from a machine 
language program! 

The kernal of the Commodore 64 contains all of the routines 
necessary for communicating with devices over the serial 
bus. 

Let's show you an example of the use of some of these 
builtin kernal routines. This short example reads the error 
channel from the disk drive. First we show you how to read 
the error channel using a BASIC program: 

10 OPEN 15,8,15: REM open error channel 

20 INPUT#15,A$,B$,C$,D$: REM get error message 

30 PRINT A$;",";B$;",";C$;",";D$:REM and output 

40 CLOSE 15: REM close channel 



You can do this only in program mode (not command mode) 
because the INPUT command is valid only in program mode. 
This machine program does the same thing: 











ACPTR 


EQU 


$FFA5 












CHROUT 


EQU 


$FFD2 












FA 


EQU 


$BA 












SA 


EQU 


$B9 












TALK 


EQU 


$FFB4 












TKSA 


EQU 


$FF96 












UNTLK 


EQU 


$FFAB 




cooo 


A9 


08 




START 


LDA 


#8 


;device number of disk 


C002 


85 


BA 






STA 


FA 


;set device no. 


C004 


20 


B4 


FF 




JSR 


TALK 


;send talk 


C007 


A9 


6F 






LDA 


#15+$60 


;sec. addr 15 + $60 


C009 


85 


B9 






STA 


SA 




COOB 


20 


96 


FF 




JSR 


TKSA 


;sec. addr for talk 


COOE 


20 


A5 


FF 


LOOP 


JSR 


ACPTR 


;read byte from device 


coil 


20 


D2 


FF 




JSR 


CHROUT 


;display on screen 


C014 


C9 


OD 






CMP 


#13 


;is it carriage return? 


C016 


DO 


F6 






BNE 


LOOP 


; no-go back for more 


C018 


20 


AB 


FF 




JSR 


UNTLK 


;yes-send untalk 


COIB 


60 








RTS 




;return to caller 



From BASIC you can call this routine by typing SYS 12*4096. 

With the next machine language program, you can display the 
directory of a diskette. Using this routine, you do not have 
to L0AD"$",8 to view the directory and consequently lose 
your current BASIC program. 
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ACPTR 


EQU 










CHROUT 


EQU 










CLSFIL 


EQU 










FA 


EQU 










FNADP 


EQU 










FNLEN 


EQU 










LNPRT 


EQU 










SA 


EQU 










SENDNM 


EQU 










STATUS 


EQU 










TALK 


EQU 










TKSA 


EQU 


cooo 


A9 


24 






LDA 


C002 


85 


FB 






STA 


C004 


A9 


FB 






LDA 


CO 06 


85 


BB 






STA 


COOS 


A9 


00 






LDA 


COOA 


85 


BC 






STA 


COOC 


A9 


01 






LDA 


COOE 


85 


B7 






STA 


COlO 


A9 


08 






LDA 


C012 


85 


BA 






STA 


C014 


A9 


60 






LDA 


C016 


85 


B9 






STA 


C018 


20 


D5 


F3 




JSR 


COIB 


A5 


BA 






LDA 


COID 


20 


B4 


FF 




JSR 


C020 


A5 


B9 






LDA 


C022 


20 


96 


FF 




JSR 


C025 


A9 


00 






LDA 


C027 


85 


90 






STA 


C029 


AO 


03 




LDY 


C02B 


84 


FB 




LI 


STY 


C02D 


20 


A5 


FF 




JSR 


C030 


85 


FC 






STA 


C032 


A4 


90 






LDY 


C034 


DO 


2F 






BNE 


C036 


20 


A5 


FF 




JSR 


C039 


A4 


90 






LDY 


C03B 


DO 


28 






BNE 


C03D 


A4 


FB 






LDY 


C03F 


88 








DEY 


C040 


DO 


E9 






BNE 


C042 


A6 


FC 






LDX 


C044 


20 


CD 


BD 




JSR 


C047 


A9 


20 






LDA 


C049 


20 


D2 


FF 




JSR 


C04C 


20 


A5 


FF 


L3 


JSR 


C04F 


A6 


90 






LDX 


C051 


DO 


12 






BNE 


C053 


AA 








TAX 


COS 4 


FO 


06 






BEQ 


C056 


20 


D2 


FF 




JSR 


C059 


4C 


4C 


CO 




JMP 


C05C 


A9 


OD 




L2 


LDA 



$FFA5 




$FFD2 




$F642 




$BA 




$BB 




$B7 




$BDCD 




$B9 




$F3D5 




$90 




$FFB4 




$FF96 




#' $ 


;$ char is file name 


$FB 


;save 


#$FB 


;addr of file name 


FNADR 




#0 


;high byte 


FNADR+1 




#1 


; length of file name 


FNLEN 




#8 


;dev.addr of floppy 


FA 


#$60 


;sec. addr for LOAD 


SA 




SENDNM 


?open file with name 


FA 




TALK ;send talk 


SA 




TKSA ;send sec addr 


#0 




STATUS 


?clear status 


#3 


fskip first three bytes 


$FB 


?save as counter 


ACPTR 


•get byte from floppy 


$FC 


•and save it 


STATUS , 


•status ok? 


L4 


•no-get out 


ACPTR , 


•get byte from floppy 


STATUS , 


•test status 


L4 




$FB j 


get counter 




and decrement 


LI 




$FC 




LNPRT ;output no. blks used 


#' ; space between 


CHROUT 




ACPTE ;get next byte 


STATUS ;test status 


L4 




7 zero? 


L2 ;yes-then end of line 


CHROUT ; 


no-output 


L3 ;and get next character 


#13 ; 


carriage return 
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COSE 20 D2 FF JSR CHROUT ; output 

C061 AO 02 LDY #2 ;2 bytes addr 

C063 DO C6 BNE Ll ; continue 

C065 20 42 F6 L4 JSR CLSFIL ;close file 

C068 60 RTS 7all done 



This routine is again called from BASIC with SYS 12*4096. 
The directory of the diskette is displayed on the screen 
without losing your BASIC program. 
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CHAPTER 2 : THE NEXT STEP - ASSEMBLER PROGRAMMING 



2ol Why Assembler Language? 



What advantages does an assembler have compared to machine 
language programming? if you have ever used machine 
language, you know that you must figure out the opcode, 
translate decimal numbers into hexadecimal, keep track of 
absolute memory addresses, compute relative jumps, etc. 
These tasks are very tedious and error prone. 

An assembler is a program that performs all of the these 
tasks very quickly and accurately. An assembler allows you 
to use symbols to represent memory location and data. With 
an assembler you use LABELS to represent actual 
addresses. For example: 



memory 



Machine language 



Assembler 



cooo 


JSR 
It 


$E544 


C056 


JMP 
It 


$C129 


C129 


JSR 


$A474 



BEGIN 


JSR 
II 


CLRSCR 




JMP 
ti 


TEST 


TEST 


JMP 
II 


BASIC 


CLRSCR 
BASIC 


EQU 
EQU 


$E544 
$A474 



The label CLRSCR stands for "clear screen". When an 
assembler language programmer want to clear the screen he 
can code JSR CLRSCR to perform this task. This is certainly 
much easier to remember than JSR $E544. Yet this is not 
the only advantage of assembler language programming. 

Imagine you have just written a very long machine language 
program, and nov/ you v/ant to change some code. Consider how 
bothersome this procedure is: you must recalculate all the 
addresses of relative branch instruction that may have 
changed; you must recalculate all absolute addresses for JSR 
or JMP instructions that may have changed; you must 
respecify the addresses of any data or tables that may have 
changed, etc. 

But if you were writing in assembler language, the assembler 
program recalculates all these addresses for you. After 
making the change to the assembler source program, it is 
assembled again and saved onto cassette or diskette as a nev; 
machine language program. All this takes place quickly and 
accurately. 

Just as a monitor is a necessary prerequisite for machine 
language programming, an assembler is necessary if you are 
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to write long or numerous machine language programs. 



2.2 Table of 6510 Instructions 

The following table lists all of the 6510 instructions. 

You should note that the binary equivalents of many of the 
6510 instructions are not complete. They may contain several 
small letter b's. The value of the binary equivalent of the 
instruction varies according to the addressing mode of the 
instruction. 



Command 


Function 


Binary 


ADC 


add With carry 


mi hhhm 


AND 


logical AND 


OOlbbbOl 


ASL 


shift left one bit 


nnnhhhi n 


BCC 


branch on carry clear 


1 nm nnnn 

lUUlUUUU 


BCS 


branch on carry set 


1 m 1 noon 


BEO 


branch on result zero 


Till nnno 


BIT 


tests Dlt 


yjyj xyju X\tyj 


BMI 


branch on result minus 


nm 1 0000 

\J\J X X\J\J\J\J 


BNE 


branch on result not zero 


1 1 m nnnn 

J.XUJ.V/UUU 


BPL 


branch on result plus 


nnm nnnn 

UUU xUUUU 


BRK 


software break 


nnnnnnnn 


BVC 


branch on overflow clear 


mmnnnn 

UXUJ.UUUU 


BVS 


branch on overflow set 


mil nnnn 

\j X X X\J\J\i\J 


CLC 


clear carry flag 


nnn i i nnn 


rr r\ 
LLiU 




11011 000 
X x\j X x\jyj\j 


CLI 


Clear muerrupt. aisaoie oii. 


m ni 1 nnn 

UJ.UXXUUU 


CLV 


clear overflow flag 


1 m 1 1 nnn 

X\J X X X\}\J\} 


CMP 


compare memory and accumulator 


1 1 nhhHm 

X J. U JJJJL/U X 


CPX 


compare memory and X— register 


111 nKKnn 

1 1 lUDDUU 


CPI 


compare memory and Y— register 


llOObbOO 


DEC 


decrem.ent memory 


llObbllO 


DEX 


decrement X-register 


10101010 


DEY 


decrement Y-reglster 


10001000 


EOR 


"exclusive-OR" 


OlObbbOl 


INC 


increment memory 


lllbbllO 


I NX 


increment X-register 


11101000 


INY 


increment Y-register 


11001000 


JMP 


jump to new location 


OlbOllOO 


JSR 


jump to new location in sub program 


00100000 


LDA 


load accumulator 


lOlbbbOl 


LDX 


load X-register 


lOlbbblO 


LDY 


load Y-register 


lOlbbbOO 


LSR 


logical right shift 


OlObbblO 


NOP 


no operation 


11101010 


ORA 


logical "OR" 


OOObbbOl 


PHA 


put accumulator on stock 


01001000 


PHP 


put status register on stack 


00001000 


PLA 


get accumulator from stack 


01101000 
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PLP 
ROL 
ROR 
RTI 
RTS 
SBC 
SEC 
SED 
SEI 
STA 
STX 
STY 
TAX 
TAY 
TSX 
TXA 
TXS 
TYA 



get status register from stack 
rotate one bit left 
rotate one bit right 
return from interrupt 
return from subprogram 
subtract with carry 
set carry flag 
set decimal 

set interrupt disable status 
store accumulator 
store X-register 
store Y-register 

transfer accumulator to X-register 
transfer accumulator to Y-register 
transfer stack pointer to X-register 
transfer X-register to accumulator 
transfer X-register to stack pointer 
transfer Y-register to accumulator 



00101000 
OOlbbblO 
OllbbblO 
01000000 
01100000 
lllbbbOl 
00111000 
00111000 
01111000 
lOObbbOl 
lOObbllO 
lOObblOO 
10101010 
10101000 
10111010 
10001010 
10011010 
10011000 



For a more detailed index of the commands and their usage, 
consult one of the books listed in Appendix D. 



2.3 A Typical Assembler Program 

An assembler is a program that translates a symbolic source 
program into its binary equivalent. Each symbolic 
instruction is translated into a machine language 
instruction that is 1, 2, or 3 bytes in length. The 
resulting machine language program is called object code. 

A line of a typical assembly language source program 
consists of several elements: 



1. the line number - comparable to BASIC line number 

2. the address - the memory location of this line 

3. the code - the hexadecimal representation of the 

instructions and data (object code) 

4. the label - a symbolic name for the beginning of 

this instruction 

5. the opcode - the symbolic name for a 6502 instruction 

6. the operand - symbolic names for any parameters of 

the instructions 

7. the remark - commentary to describe the machine 

language code 

Elements 4 thru 7 are optional. They are not necessary in 
each line of the assembly language source program. 

In addition to the 6510 instructions, most assemblers 
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understand some special instructions called pseudo opcodes. 
For instance some assemblers have a pseudo opcode called 
BYT. This pseudo opcode allows you to insert data into the 
program. You can specify the data in decimal format or 
hexadecimal format. 

More sophisticated assemblers allow you to peform 
conditional assembly. Using conditional assembly, you can 
choose to translate parts of source programs into object 
code if certain conditions are satisfied. 

Here is a typical printout of an assembler listing: 



line addr code 

10 0000 

20 0000 

30 0000 A9 00 

40 0003 8D 00 CO 

50 0006 4C 23 01 



label oper operand comment 
BUFFER EQU SCOOO 



TEST 



ORG 
LDA 
STA 
JMP 



$0000 
#$00 



;variable BUFFER 

is stored at $C000 
;start code at $0000 
;zero accumulator 



BUFFER ? store into BUFFER 
JUMP ;at JUMP it goes on 



180 
190 



0123 38 

0124 E9 OA 



JUMP 



SEC 
SBC 



#$0A 



; carry flag set 
;subtract 10 



You can clearly see the difference between machine language 
programming and assembler language programming: you don't 
have to calculate addresses and memory locations anymore. 
These calulation are taken care of by the assembler. At the 
same time the assembler can identify possible mistakes and 
notify the user. Assembler language programming is not only 
faster, but considerably more accurate than machine language 
programming . 

Let's now turn to another assembler language program. This 
routine is much more accurate and faster than the SQR 
routine in BASIC. The algorithm for this function is: 



X (N+1) = X (N) - F (X(N)) / F (X(N)) 
X = F (A) 

X (N+1) = (X(N) + A / X (N) ) / 2 



The running time of this function is only about 14 ms. 
The program is as follows: 

•FAST SQR ROUTINE, ABOUT 14MS 
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ALGORITHM X( N+1 ) =X( N) -F(X( N) )/F(X(N) 
X=F(A) , X(N+1)=(X(N)+A/X(N) )/2 



1 1 n • 
11 u • 


n "3 O r» 








1 zu • 


n o o o 
U J JC 








u u • 


n "3 o 








140 : 


n '^'kn 








150 : 










160 : 


n '^'Kr 








170 : 


yj O Oy^ 








180 : 


033C 








190 : 


033C 








200 : 


033C 








210 : 


033C 








220 : 


033C 


zu 


9R 


til-. 


230 : 


n p 


r u 






240 : 


\J J** JL 


lU 


U J 




250 : 


0343 


AC 




no 
dZ 


260 : 


0346 








270 : 


0349 




O 1 




280 : 


V/ J •* D 


J o 






290 : 


034C 




PI 
O 1 




300 : 


034E 


08 






310 : 


034F 


Ah. 






320 : 


0350 


18 






330 : 


0351 




Ul 




340 : 


0353 


9ft 






350 : 


0354 


QO 
yyj 


09 
u z 




360 : 


0356 


69 


7P 




370 : 


0358 


O D 


Dl 




380 : 


035A 


AQ 


04 




390 : 


035C 


O D 


O 1 




400 : 




9n 




QD 
DO 


410 : 


U O Q J. 




RP 




420 : 


0363 


AO 


00 




430 : 


0365 


20 


DP 




440: 


0368 


A9 


57 




450: 


036A 


AO 


00 




460: 


036C 


20 


67 


BB 


470: 


036F 


C6 


61 




480: 


0371 


C6 


67 




490: 


0373 


DO 


E9 




500: 


0375 


60 







SIGN EOU $BC2B 
ILLEGAL EOU $B248 
EXP EOU $61 

ACCU3 EOU $57 
ACCU4 EOU $5C 
COUNT EOU $67 
A1T0A3 EOU $BBCA 
A1T0A4 EOU $BBC7 
MEMDIV EOU $BBOF 
MEMPLUS EOU $B867 

ORG $33C 

JSR SIGN 

BEO END 

BPL OK 

JMP ILLEGAL 
OK JSR A1T0A4 

LDA EXP 

SEC 

SBC #$81 
PHP 
LSR 
CLC 

ADC #$01 
PLP 

BCC SI 
ADC #$7F 

SI STA EXP 

LDA #$04 
STA COUNT 

ITER JSR A1T0A3 
LDA #<ACCU4 
LDY #>ACCU4 
JSR MEMDIV 
LDA #<ACCU3 
LDY #>ACCU3 
JSR MEMPLUS 
DEC EXP 
DEC COUNT 
BNE ITER 
END RTS 



;PGM IN TAPE BUFFER 

;GET SIGN 

;0? YES->OK 

;+? YES->OK 

;ILL. OUAN. ERR. 

;ACCU#1->ACCU#4 

;EXP.->ACCU 

; NORMALIZE EXPONENT 
; STAT. REG. ON STACK 
; HALVE EXPONENT 
; CLEAR CARRY FLAG 
;ADD 1 

; STAT. REG. FROM STACK 

;CARRY?N0->S1 

;ADD 127 

; MEMORY AS EXPONENT 
;FOUR ITERATIONS 
; MEMORY IN VARIABLE 
?ACCU#1->ACCU#3 
;LOAD LSB FROM AC. 4 
;LOAD MSB FROM AC. 4 
; DIVIDE BY ACCU#1 
;LOAD LSB FROM AC. 3 
;LOAD MSB FROM AC. 3 
?ADD TO ACCU#1 
?ACCU#1/2(EXP.-1) 
?ONE ITERAT. LESS 
?MORE ITER.? YES 
?BACK TO PROGRAM 



(LSB=least significant byte 
MST=most significant byte) 



You can enter this program using either a monitor or an 
assembler. To use it, you can call it from BASIC. You can do 
this by using the BASIC USR command. The USR command passes 
control to the routine whose address is placed in memory 
locations $311/$312. The parameter passed via the U.^R 
routine is automatically made available to this routine. 
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Here is an example: 



10 POKE 785,60: REM LSB - 60 DECIMAL = 3C HEX 
20 POKE 786,03: REM MSB - 03 DECIMAL = 03 HEX 
30 A=10 
40 B=USR(A) 

50 PRINT "SOR OF ";A?" IS ";B 

60 END 

RUN 

SQR OF 10 IS 3.16227766 

If you are interested in further mathematical functions, 
please read Chapter 6.3.3. There you will find more 
information. 

In Chapter 6.3, you will find more about communicating 
between BASIC and machine language programs. 



2.4 Still More Programs 

Next are several more examples of assembler language 
programming. The routines are useful as well as 
illustrative. 

These programs are intended to serve as models for 
developing programs of your own. 

First, is a routine which prints the contents of the 
accumulator in hexadecimal format to the currently assigned 
output device. If the current output device is the screen 
(default), then the contents of the accumulator are printed 
onto the screen. If you OPENed a printer as the output 
device (OPEN 4,4) , then the contents of the accumulator are 
sent to the printer. 

This program is placed in the Commodore 64 cassette buffer. 
This location is suitable for such small routines because it 
is not affected by BASIC unless input from or output to the 
cassette drive is attempted. 



033C 






ORG 


$033C 


033C 




BSOUT 


EQU 


$FFD2 


033C 


48 


START 


PHA 




033D 


4A 




LSR 




033E 


4A 




LSR 




033F 


4A 




LSR 




0340 


4A 




LSR 




0341 


20 


47 03 


JSR 


HEXASC 


0344 


68 




PLA 




0345 


29 


OF 


AND 


#$0F 



Starting addr of pgm. 
declare addr of the 

kernal o/p routine 
save value of accum 
shift bits 4 

thru 7 to positions 

of bits 

thru 3 
convert digit to ASCII 
restore accumulator 
mask out bits 4-7 
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0347 18 



HEXASC 



CLC 
ADC 
BCC 
ADC 
ADC 
JMP 



;clear carry flag 
;prepare for conversion 
;branch is <=255 
;nornialize for A-F 
;make ASCII value 
;write result 



0348 69 F6 
034A 90 02 
034C 69 06 
034E 69 3A 



#$F6 
* + 4 
#$06 
#$3A 
BSOUT 



0350 4C D2 FF 



Here's an explanation. Suppose the accumulator contains the 
value $FE ( 254 in decimal). Keep in mind that the 
hexadecimal number $FE is represented as a single character 
(8 bits) inside the computer. To display this value however, 
you must change it two two individual ASCII characters. 

To display the value, first divide the hexadecimal number 
into two separate numbers. To do this, "split" the 8- bit 
byte into two four bit nibbles. You do this by shifting the 
left four bits of this number to the right which at the same 
time fills the vacated bits with zeros. As a result you 
have a one-digit number between and F. Shifting is done 
with the 6510 LSR instruction. Since we must shift four 
bits, we execute the LSR instruction 4 times. 

Shifting causes us to lose the right four bits of the 
number. This is why we saved the original number with a PHA 
instruction. The accumulator is saved on the STACK. 

Before outputting the each hexadecimal digits, convert them 
to ASCII characters. The routine called HEXASC does exactly 
this. Hexadecimal numbers have this order: 0, 1, 2, 3, 4, 5, 
6, 7, 8, 9, A, B, C, D, E, F. However the ASCII equivalent 
of these numbers are not in this sequence. Adding $F6 to 
the digit makes the next step easier. 

If the digit is between and 9, the result of this addition 
is either less than or equal to 255 and the carry flag will 
remain clear. Therefore adding $3A to the digit, creates a 
value between $30 (ASCII 0) and $39 (ASCII 9) and the digit 
is ready for display. 

If the digit is between A and F, the result of adding $F6 is 
greater than 255 and the carry flag will be set. The BCC *+4 
instruction tests this condition and the next instruction 
normalizes the digit for the correct ASCII values of A-F by 
adding an $06 to the digit to arrive at a value between $41 
(ASCII A) and $46 (ASCII F). 

After outputting the first digit (in our example F) we can 
output the second digit. For this purpose, we have to mask 
out left four bits of the original number. We can do this 
by using an AND instruction using a mask of $0F. The value 
$0F looks like this: 



00001111 
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When ANDing two values, each bit is only set on only if both 
corresponding bits are set. In this example: 



original FE: 1 1 1 1 1 1 1 

mask OF: 00001111 

result of AND 0E:00001110 

The number is now correctly formatted to be output. 

Finally, we present a program that aids you in inputting 

your machine language programs. You can enter the 
instructions in hexadecimal. 

100 AD=828: REM AD-> START ADDR OF MACHINE PGM (DECIMAL) 

110 READ 0P$ 

120 GOSUB 65000 

130 POKE AD, OP 

140 AD=AD+1 

150 IF X096 THEN GOTO 110 

160 END 

170 REM FOLLOWING DATA LINES CONTAIN THE OPCODES OF YOUR 

175 REM MACHINE LANGUAGE PROGRAM. THIS EXAMPLE IS THE 

180 REM ROUTINE PREVIOUSLY EXPLAINED THAT PRINTS THE 

190 REM CONTENTS OF THE ACCUMULATOR IN HEX FORMAT 

200 DATA 48,4A,4A,4A,4A,20 47 03 

210 DATA 68, 29, OF, 18, 69, F6, 90, 02 

220 DATA 69,06,69,3A,4C,D2,FF,96 

65000 REM THIS ROUTINE CONVERTS HEX NUMBERS INTO DECIMALS 

65010 0L$=LEFT$(0P$,1) : OR$=RIGHT$ ( 0P$ , 1 ) 

65020 OL=VAL(OL$): IF OL=0 AND OL$<>"0" THEN OL=ASC( 0L$ ) -55 

65030 OR=VAL(OR$): IF OR=0 AND OR$<>"0" THEN OR=ASC ( 0R$ ) -55 

65040 0P=0L*16+0R 

65050 RETURN 



Using this program you can input a machine language routine 
byte by byte. Even though this method of placing machine 
language routines is convenient, it still does not match a 
monitor or assembler for convenience. 

We hope that this chapter better aquainted you with machine 
and assembler language programming. The best advice we can 
give to the reader is to try writing his own program, 

PRACTICE MAKES PERFECT! 

After a short while, you will become more accomplished. In 
any event, you will discover that programming in machine 
language is just as much fun as programming in BASIC. 
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CHAPTER 3 A CLOSE-UP LOOK AT THE COMMODORE 64 



3.1 What you should know about the Commodore 64 

The Commodore 64 is an outstanding achievement, considering 
its remarkably affordable price. 

When working with the Commodore 64, you will soon notice 
that, as far as hardware is concerned, very little is 
missing, if you also own a VIC-20, you might want to take a 
time to look at the insides of both devices. 

You will notice that the Commodore 64 contains fewer 
integrated circuits (ICs) than the VIC-20, even though it 
contains far more power than the VIC-20. This is made 
possible by extremely high density of the ICs. 

There are a several newly developed, ICs inside the 
Commodore 64. 

The Commodore succeeded in putting the following things into 
64K address space: 

* 64K dynamic RAM 

* IK color RAM 

* 4K character generator 

* Color video-controller with hires graphics 

* Synthesizer with three independent voices 

* 8K BASIC interpreter 

* 8K operating system 

* 2 parallel I/O ports 

* RS-232 interface 



3.2 An Overview of the Hardware 

The Commodore 64 contains 64K of RAM, 20K of ROM and a bank 
of memory for accessing the input and output devices. Since 
the 6510 processor can only address a 64K memory space, a 
method is required to allow access to this larger array of 
memory space. 

The method used is called multiplexing. Multiplexing allows 
several system components to share the same bus 
(communication) lines by using them at different times. This 
complex function is coordinated by a special IC which we 
will simply call address-space manager, since we don't have 
a name for it. More about this in section 3.4. 

The character generator and I/O bank are located in the same 
address range. But this apparent conflict presents no 
problems, since the video interface chip takes advantage of 
the 6510's unused cycles when accessing the character 
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generator. 

The complete ROM and parts of the RAM overlap over a range 
of 20K. A description of this overlap is presented in 
section 3.4. 

Besides handling the screen display, the video interface 
chip (VIC) also performs an additional function of 
refreshing the RAM. All of these procedures are taken care 
of by the video controller which must also provide generate 
the text and graphics. 



3.3 Special features of the 6510 processor 

The Commodore 64 contains a 6510 CPU. It is an 8-bit 
processor which is run at a frequency of about 980 Khz. The 
6510 is the newest member of the 65xx family of 
microprocessors . 

The roost significant difference from the well-known 6502 is 
that the chip has 6 I/O lines available. Compared to the 
6502 which has no I/O lines available, the 6510 can 
communicate over these six I/O lines without requiring 
additional ICs to perform the I/O. 

These lines support the cassette operation and memory 
management. 

Here is a list of the 6510 pinouts. These pinouts were 
derived from an empirical testing approach, lines actually 
go. Here is the result: 



1 JZIjIN input clock cycle time; 980 KHz 

2 RDY ready; = processor stops at the next reading 
cycle until RDY=1; 

3 -IRQ interrupt request; 

O=processor gets next command from vector $FFFE and 
continues there. Permitted if status register bit 2=0 

4 -NMI non-maskable interrupt; 

O=processor gets next command from vector $FFFA and 
continues there. 

5 AEC address enable control; 

O=processor brings data address and operation bus into 
tri-state. The bus can now be used by other units, 
i.e. a second processor. 

6 operating voltage +5V 
7-20 A0-A13; address bus 
21 GND 

22-23 A14-A15; address bus 
24-29 P5-P0; I/O port 
30-37 D7-D0; data bus 
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38 R/-W; 
0=write access 
l=read access 

39 JZf2lN clock cycle 

40 RES reset; 

O=processor goes into non-operating state. After 
transition from to 1, the processor gets vector from 
$FFFC and begins execution there. 



3.4 Memory Configurations 

As mentioned before, the Commodore 64 has 64K of RAM, 20K of 
ROM, 4K of I/O RAM and 8K character generator ROM. The 6510 
processor can access all of this memory with the help of an 
IC which we call the address manager. 

By programming memory locations and 1, you can affect the 
address manager to make different combinations of RAM, ROM 
and I/O available to the Commodore 64. 

Memory location 1 is called the input/output. Memory 
location is the control port for the input/output port and 
in part determines the memory configurations. 

Three bits of the control port are of note: 

Bit called LORAM 0=selects RAM at $AOOO-$BFFF 

l=selects ROM at $AOOO-$BFFF 

Bit 1 called HIRAM 0=selects RAM at $EOOO-$FFFF 

l=selects ROM at $EOOO-$FFFF 

Bit 2 called CHAREN 0=selects ROM at $DOOO-$DFFF 

l=selects I/O at $DOOO-$DFFF 



An example shows you how you can program the control port. 
Suppose you want to disable the ROMS that contain the BASIC 
interpreter at $AOOO-$BFFF. To do this you would have to set 
the bit LORAM to zero. The following statement could do this 
for you: 

POKE 0^PEEK(0)AND254 

It is necessary to use the AND the original contents of the 
control port (PEEK(O)) since the other bits control port 
must not be disturbed. 

There are also two lines which are connected to the address 
manager. One line is called EXROM and is set when a ROM 
cartridge is found is the expansion slot. The other line is 
called GAME and is also set when a ROM cartridge is found 
in the expansion slot. 

Thus using these five variables, we can describe the eight 
major memory configurations that are possible with the 
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Commodore 64. The following pages pictorally describe these 
different memory configurations. 



8K KERNAL ROM 



4K I/O 



4K RAM 



8K BASIC ROM 



8K RAM 



16K RAM 



16K RAM 



LORAM = 1 
HIRAM = 1 
EXROM = 1 
GAME = 1 



E&OO 
DOOO 
COOO 



8000 



8K 


RAM 


4K 


I/O 


4K 


RAM 



16K RAM 



16K RAM 



16K RAM 



LORAM « 1 
HIRAM = 
EXROM « X 
GAME = 1 



THIS CONFIGURATION APPEARS WHEN 
THE COMMODORE 64 IS TURNED ON. 



THIS CONFIGURATION GIVES YOU 60K OR 
RAM, BUT YOU MUST PROVIDE YOUR OWN 
DRIVER TO HANDLE I/O TO DEVICES. 



EOOO 
DOOO 
COOO 



8000 



4000 



0000 



8K KERNAL ROM 



4K I/O 



4K RAM 



LORAM = 
HIRAM = 1 
EXROM = X 
GAME = 1 



THIS CONFIGURATION GIVES YOU 52K RAM, 
I/O AND DRIVER TO HANDLE I/O DEVICES. 
USED BY CP/M CARTRIDGE. 



COOO 



8000 



16K 


RAM 


16K 


RAM 


16K 


RAM 


16K 


RAM 



LORAM = 
HIRAM - 
EXROM = X 
GAME = 1 

OR 

LORAM = 
HIRAM = 
EXROM » 
GAME = X 



0000 

THIS CONFIGURATION GIVES A FULL 64K 
RAM. YOU MUST PROVIDE YOUR OWN I/O 
DRIVER AND BANK THE 4K I/O BACK WHEN 
ACCESSING THE I/O DEVICES. 
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8K KERNAL ROM 



4K I/O 



4K RAM 



8K BASIC ROM 



8K CARTRIDGE 



16K RAM 



LORAM = 1 
HIRAM = 1 
EXROM = 
GAME = 



THIS CONFIGURATION SHOWS A STANDARD 
BASIC SYSTEM USING AN EXPANSION 
CARTRIDGE. 



EOOO 
DOOO 
COOO 

AOOO 
8000 



0000 



8K KERNAL ROM 



4K I/O 



4K RAM 



8K CARTRIDGE 



8K RAM 



16K RAM 



16K RAM 



THIS CONFIGURATION GIVES YOU 40K RAM 
AND LETS YOU REPLACE THE BUILT IN 
BASIC WITH AN 8K ROM CARTRIDGE. 



8K KERNAL ROM 



4K I/O 



4K RAM 



16K ROM 



16K RAM 



16K RAM 



LORAM = 1 
HIRAM = 1 
EXROM = 
GAME = 



THIS CONFIGURATION GIVES YOU 32K RAM 
AND LETS YOU REPLACE THE BUILT IN 
BASIC WITH A 16K CARTRIDGE. 



EOOO 
DOOO 
COOO 

AOOO 

8000 



8K ROM 



4K I/O 



4K UNUSED 



8K UNUSED 



16K UNUSED 



12K UNUSED 



1000 
0000 



THIS CONFIGURATION GIVES YOU THE 
IMAGE OF THE ULTIMAX COMPUTER 
WHICH IS STILL YET TO BE RELEASED 
BY COMMODORE. 
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3.5 The Expansion Port 

At the back of the Commodore 64 is a 44-pin connector. This 
is called an expansion slot. This slot contains connections 
for the complete system bus and the accompanying control 
channel. 

Among the things that are connected at this port are BASIC 
and operating system expansions and game and input/output 
expansion (serial bus) . 

Since many signals are not self-explanatory, we explain the 
pin overlay here: 



I GND 
2-3 +5V 

4 -IRQ; connected with the IRQ of the processor 

5 R/-W; connected with the R/-W of the processor 

6 DOT CLOCK;dot scanning cycle for the VIC chip, 8.18 
MHz 

7 -I/On; usually =0 in the address range $DEOO to $DEFF 

8 -GAME; input to the address manager 

9 -EXROM; input to the address manager 

10 -1/02' usually =0 in the range $DFOO to $DFFF 

II -ROML; output from AM; see ch.3.4. 

12 BA; signal from VIC, which indicates the validity of 
reading data. 

13 -DMA; input. 0=reserve bus system for external 
access 

14-21 CD7-CD0; data bus 

22 GND 

A GND 

B -ROMH; output from address manager at $E0OO 

C -RESET 

D -NMI 

E 09' system cycle output 

F-Y AI5-A0; address bus 

Z GND 



3.6 The User Port 

With the user port, the Commodore 64 offers an versatile 
interface. It is possible to connect analog to digital 
controllers or parallel interfaces (Centronics-type) for 
example . 

Basically, the user port consists of an 8-bit port and 
several control channels explained as follows: 



1 GND 

2 +5V; 

3 -RESET; connected with the processor of the same name 
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4 


CNTl; connected with CNT from CIAl 




5 


SPl ? connected with SP from CIA 1 




6 


CNT2; connected with CNT from CIA 2 




7 


SP2; connected with SP from CIA 2 




8 


-PC2; handshake output from CIA 2 




9 


SERIAL ATN; control channel of the serial bus 




10 


9V AC; + phase 




11 


9V AC; - phase 




12 


GND 




A 


GND 




B 


-FLAG2; handshake input from CIA 2 




C-L 


PB0-PB7; I/O lines from CIA 2 




M 


PA2; I/O line from CIA 2; This line substitutes 


for 




the CB2 which is known from other CBMs of the VIA 


6522. 


N 


GND 





Some of the lines mentioned before already have definitely 
pre-assigned functions. For more information on using the 
CIAs please refer to chapter 8. 
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CHAPTER 4: THE SYNTHESIZER 



4.1 The Sound Controller 6581 



4.1.1 General notes about the SID 6581 

The sound synthesizer included in the Commodore 64 gives you 
the opportunity to produce all kinds of sounds, ranging from 
a flute to a big steam engine. Most computer synthesizers 
have only one voice, the Commodore 64 offers a three-voice 
synthesizer. 

All the elements necessary to produce quality sound are 
found on a single IC. This IC is called the sound interface 
device (SID) 6581. It is a new component of the 65xx 
family. It is provided with: 

* 3 seperately programmable, independent oscillators 
( voices) 

* 4 mixable waveforms for every voice 

* 3 mixable filters (high-low tape pass) 

* Attack/decay/sustain/release control ( ADSR-control ) for 
every voice 

* 2 ring modulators 

* alternation possibility for external signal source 

* 2 8-bit A/D transformer 



Pin layout of the 6581 are: 

1-2 CAP1A,CAP1B; condenser connector for the programmable 

filters. Recommended capacity: 2200 pF. 
3-4 CAP2A,CAP2B; as 1-2 

5 -RES (reset); =0 brings SID into basic state 

6 02(system frequency 2); all data-bus actions only take 
place during 02=^» 

7 R/W: 0=write access, l=read access 

8 -CS (chip select ) ;0=data valid, l=data invalid 
9-13 A0-A4 (address bits 0-4); select one of the 29 

registers of the SID. 
14 GND(ground); The SID should have its own ground so as 

to avoid interferences from other system components. 
15-22 D0-D7; data lines to/from the 6510 processor 

23 A2IN analog input 2 

24 AlIN analog input 1 

25 VCC; supply voltage +5V 

26 EXT IN (external input); input for external audio 
signals for mixing with SID. 

27 AUDIO OUT; output for signals that were produced by 
SID. 

28 VDD; supply voltage +12V 

The SID 6581 can produce three synthesized voices that can 
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be controlled independently of each other. This is an 
unusually powerul capability for a single integrated 
circuit. Additionally, the voices can be used in combination 
to produce some extremely complex sounds. 

Each voice consists of an oscillator, a waveform generator 
capable of producing four different timbres, an envelope 
generator, and an amplitude modulator. 

The oscillator produces the basic frequency in the range 
from 0-8200 Hz with a reslolution of 16 bits. 

The SID can produce four different waveforms: triangular, 
sawtooth, pulse and white noise. The choice of waveforms 
influences the sound quality. 

A triangular waveform has a very soft sound, like a 
recorder. The sawtooth waveform produces a full spectrum 
sound. Consequently, it has a more harsh sound, like a 
trumpet. The pulse waveform is missing some some harmonic 
ranges. It sounds a little hollow, somewhat like a 
clarinet. The white noise consists of a random sequence of 
different frequencies within defined limits. 

The volume of a tone is influenced by an amplitude modulator 
which is controlled by the envelope generator. When the 
envelope generator is triggered, the amplitude (volume) of 
the sound is controlled by the ADSR parameters that define 
the envelope. 

Additionally, the outputs of each voice can be sent through 
adjustable filters which further define the sound. 

The SID also lets you use voices 1 or 2 in combination with 
voice 3 to produce a ring modulated sound much like a bell 
sound . 

The SID also contains two 8-bit analog to digital 
converters. These A/D converters can be used to connect game 
paddles, electrical controllers, etc. 



4.1.2 Explaination of the Registers 

The SID is located at address $D400 (54272). The registers 
that control the SID are: 

REG oscillator frequency low byte for voice 1 
REG 1 oscillator frequency high byte for voice 1 

REG 2 pulse width low byte for voice 1 

REG 3 pulse width high byte for voice 1 

Registers 2 and 3 determine the pulse width 
relation of the pulse waveform output of voice 1. 
Only the bits 0-3 are used by register 3. 
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REG 4 control register for voice 1 

bit GATE: gate bit for the envelope generator. 
When this bit is set to one, the 
ATTACK/DECAY/SUSTAIN cycle begins. The volume 
of voice 1 increases from zero to the maximum 
according to the attack time set in REG 5 and 
then decreases according to the decay time in 
also set in REG 5 to the sustain level set in 
REG 6. 

When this bit is set to zero, the RELEASE 
cycle begins. The volume decreases to zero 
according to the release time set in REG 6. 

Bit 1 SYNC: When set to 1, the frequency of voice 
1 is synchronized with that of voice 3. 

Bit 2 RING: When set to 1, the triangular waveform 
output of voice 1 is replaced by a ring 
modulated combination of voices 1 and 3. 

Bit 3 TEST: When set to 1, voice 1 is locked until 
the TEST bit is reset to 0. 

Bit 4 TRI: When set to 1, a triangular waveform 
selected 

Bit 5 SAW: When set to 1, a sawtooth waveform 
selected 

Bit 6 PUL: When set to 1, a pulse waveform 
selected. 

Bit 7 NSE: When set to 1, a noise generator 
selected. 

* It is possible to select several waveforms 
simultaneously. The result is a logical 
ANDing of the waveworros. 
REG 5 ATTACK/DECAY (see TABLES 4.1 and 4.2) 

Bits 0-3 DECAY: Sets the time in which the volume 
falls from maximum to the sustain level. The 
range is variable from 6msec to 24sec. 

Bits 4-7 ATTACK: Sets the time in which the volume 
increases from zero to maximum volume after 
gating the voice. The range is variable from 
2msec to 8 sec. 
REG 6 SUSTAIN/RELEASE (see TABLE 4.2) 

Bits 0-3 RELEASE: Sets the time in which the volume 
falls from the sustain level to zero volume 
after resetting the GATE bit to zero. The 
range is variable from 6msec to 24 sec. 
Bits 4-7 SUSTAIN: The proportion of the peak volume 
that constitutes the sustain level. A zero 
value indicates a zero volume, a value of 8 
is a sustain level equal to one-half of the 
peak volume and a value of 15 is a sustain 
level equal to the peak volume. 
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REG 7- 

REG 13 These registers control voice 2 analogously to 
registers 0-6 with the following exceptions: 
SYNC synchronizes voice 2 with voice 1 
RING replaces the triangular output of voice 
2 with the ring-modulated combination of 
the voices 1 and 2. 

REG 14- 

REG 20 These registers control voice 3 analogously to 
registers 0-6 with the following exceptions: 
SYNC synchronizes voice 3 with voice 2. 
RING substitutes the triangular output of 
voice 3 with the ring-modulated combination 
of voice 3 and 2. 



REG 21 filter frequency low. Only bits 0-2 are used, 

REG 22 filter frequency high. 

The 11-bit number of registers 21 and 22 determine 
the cutoff frequency of the filters. This frequency 
is computed as follows: 

F=(30+W*5.8)Hz, W is this 11-bit number. 

REG 23 Filter resonance and switch. 

Bit l=output voice 1 through the filter. 

Bit 1 l=output voice 2 through the filter. 

Bit 2 l=output voice 3 through the filter. 

Bit 3 l=input external signal source through filter 

Bits 4-7 Resonance frequency of filter. 

The resonance frequency is variable from zero (no 

resonance) to 15 (maximum resonance) which 

emphasizes the frequencies at the cutoff frequency. 

REG 24 .This register has the following functions: 
Bits 0-3: overall volume 

Bit 4 : LP sets the low-pass output of the filter. 
Bit 5 : BP sets the band-pass output of the filter. 
Bit 6 : HP sets the high-pass ouput of the filter. 
Bit 7 : 30FF l=disconnect voice 3 output. Use this 

to modulate the other voices without audible 

results from voice 3. 



You may only write to the registers listed above. You may 
only read the registers listed below: 

REG 25 POTX : reads the position of the potentiometer (A/D 
converter) at pin 24. 

REG 26 POTY: reads the position of the potentiometer (A/D 
converter) at pin 23. 

REG 27 Noise generator 3 

This register allows you to read the output of 
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voice 3. This allows you to modulate the other 
voices to produce interesting sounds. 

REG 28 Envelope generator 3 

This registers allows you to read the output of 
voice 3 envelope generator. This allows you to 
produce harmonic envelopes by adding this 
register to the filter frequency. 



VALUE ATTACK RATE 






2 ihs 


1 


8 nis 


2 


16 ms 


3 


24 ms 


4 


38 ms 


5 


56 ms 


6 


68 ms 


7 


80 ms 


8 


100 ms 


9 


250 ms 


10 


500 ms 


11 


800 ms 


12 


1 sec 


13 


3 sec 


14 


5 sec 


15 


8 sec 



TABLE 4-1 



VALUE 


DECAY/RELEASE RATE 





6ms 


1 


24ms 


2 


48ms 


3 


72ms 


4 


114ms 


5 


168ms 


6 


204ms 


7 


240ms 


8 


300ms 


9 


750ms 


10 


1 .5sec 


11 


2.4sec 


12 


3sec 


13 


9sec 


14 


15sec 


15 


24sec 



TABLE 4-2 
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4.1.3 The Analog/Digital Converter (Potentiometers) 

The A/D converter, also called a potentiometer is a device 
that changes an analog signal (i.e. voltage) into a digital 
value. The critical problem with such a transformation is to 
change an analog value with an infinite gradation into a 
digital value with a finite gradation (fixed intervals). 
Inevitably, a maximum error of +/- of the smallest digital 
step occurs. 

The SID 6581 contains two A/D converters named POTX and 
POTY. They each use a fixed reference voltage of 5V. They 
produce a reading as follows: a capacitor is discharged and 
its is value is read into register 25 or 26. This value is 
porportional to the time required for a recharging of the 
capacitor using the reference voltage. This procedure is 
repeated cyclically. 



4.1.3.1 Handling the A/D Converter 

It becomes clear from the points made above that only 
potentiometrical switching is possible. If currents have to 
be measured, they must to be put into a suitable form first. 
This can be achieved by using a unijunction transistor. 

The measuring arrangements are such that the one end of the 
measuring resistance is connected to +5V (available at tie 
control port of the Commodore 64) and the other end is 
connected to the analog input of the SID (also available at 
the control ports, marked as POTX and POTY). The value read 
from registers 25 and 26 is a measurement of the resistance. 

In order to take advantage of the entire 8-bit range, the 
resistance must operate in range from to 500 megaohm. 

4.1.3.2 Using the Game Paddles 

You can connect regular game paddles to the Commodore 64. 
Two sets of game paddles (four in all) may be connected at 
one time. They are simply plugged into the control ports on 
the right side of the device. A game paddle is nothing more 
than a potentiometer (which is connected to the SID as was 
explained in the preceding section), and a key which has an 
effect on joystick position LEFT for the one paddle and 
RIGHT for the other paddle. 

The procedure of reading the game paddle values from program 
presents a little problem. The game paddles and the keyboard 
share some of the lines of CIA 1 and CIA 2. Because two sets 
of the paddles (four paddles in all) may be connected at on 
time and because there are only two analog converters in the 
Commodore 64, a way of sharing the converters is required. 
So as to avoid inteference of the game paddles with the 
keyboard, we have to write a small machine language routiie 
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to read the game paddle values without disturbing the 
keyboard functions. 

The solution is the following program which allows us to 
access all four paddles. The program is located in a memory 
range that is not normally used by the operating system. 



CFBE 


SEI 




prevent keyboard interruptions 


CFBF 


LDA 


#$80 ; 


parameter for paddle-set A 


CFCl 


JSR 


$CFEC ; 


get A/D values Al and A2 


CFC4 


STX 


$033C ; 


save POTX 


CFC7 


STY 


$033D ; 


and save POTY 


CFCA 


LDA 


$DCOO ; 


get key A from CIA 1 


CFCD 


AND 


#$0C ; 


filter required bits 


CFCF 


STA 


$029F ; 


and save 


CFD2 


LDA 


#$40 J 


parameter for paddle -set B 


CFD4 


JSR 


$CFEC ; 


get A/D values Bl and B2 


CFD7 


STX 


$033E I 


and save 


CFDA 


STY 


$033F 




CFDD 


LDA 


$DC01 


►get keys B from CIA 2 


CFEO 


AND 


#$oc 


•filter required bits 


CFE2 


STA 


$02A0 


►and save 


CFE5 


LDA 


#$FF 


•all bits output in CIA 1 


CFE7 


STA 


$DC02 


?in order to enable 


CFEA 


CLI 




; keyboard inquiry 


CFEB 


RTS 




}back to basic program 


CFEC 


STA 


$DCOO 


^select paddle set 


CFEF 


ORA 


#$co 


?and set appropirate bits 


CFF2 


STA 


$DC02 


;on output 


CFF4 


LDX 


#$0 


;time delay to 


CFF6 


DEX 




? stabilize input 


CFF7 


BNE 


$CFF6 


;A/D input 


CFF9 


LDX 


$D419 


;get A/D 1 (POTX) 


CFFC 


LDY 


$D41A 


;get A/D 2 (POTY) 


CFFF 


RTS 




; return to main program 



Here is A BASIC program which POKES the above program into 
memory. Connect the paddles, load and start the program and 
see what happens. 

10 DATA 120, 169, 128, 32, 236, 207, 142, 60, 3, 140, 61 r 3 rl73 
20 DATA 0,220,41,12,141,159,2,169,64,32,236,207,142 
30 DATA 62,3,140,63,3,173,1,220,41,12,141,160,2,169 
40 DATA 255,141,2,220,88,96,141,0,220,9,192,141,2 
50 DATA 220,162,0,202,208,253,174,25,212,172,26,212,96 
60 FOR M=53182 TO 53247 

70 READ A: POKE M,A: NEXT: read in REM machine program 

80 AX=830: REM paddle 1 at control port 1 

90 AY=831: REM paddle 2 at control port 1 

100 BA=672: REM keys from paddle pair A 

110 BX=828: REM paddle 1 at control port 2 

120 BY=829: REM paddle 2 at control port 2 

130 BB=830: REM keys from paddle pair B 

140 SYS 53182: REM get all values 

150 PRINT PEEK(AX)" "PEEK(AY)" "PEEK(BA)" 
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160 PRINT PEEK(BX)" "PEEK(BY)" "PEEK(BB)" "; 
170 GOTO 140 



4.2 Programming the SID 6581 

This section describes the programming the synthesizer. 
For the simple production of a tone you should: 1) load 
register 24; 2) set the appropriate ADSR registers 
(5,6,12,13,19,20); 3) set the remaining registers, 
preferably in the order of their voice range with the 
exception of the registers 4, 11 and 18; 4) load registers 
4,11 and 18 at the end (don't forget bit 0!) and then you'll 
hear the tone. 

The following brief program will acquaint you with the 
waveforms and the tone range of the synthesizer: 



10 51=54272: REM voice 1 

20 52=54279: REM voice 2 

30 53=54286: REM voice 3 

40 FL=54293: REM filter lo-byte 

50 FH=54294: REM filter hi-byte 

60 RS=54295: REM resonance+switch 

70 PL=54296: REM pass kind+volume 

80 POKE 51+4,0: POKE 52+4,0: POKE 53+4,0 

100 POKE 51+2,0: POKE 51+3,8 

110 POKE 51+5,0: POKE 51+6,240 

120 POKE R5,0: POKE PL, 15 

130 PRINT "TRIANGLE" 

140 T=16: GOSUB 300 

150 PRINT "5AWT00TH" 

160 T=32: GOSUB 300 

170 PRINT "RECTANGLE" 

180 T=64: GOSUB 300 

190 PRINT "NOISE" 

200 T=128: GOSUB 300 

210 END 

300 POKE 51,0: POKE Sl+1,0 

310 POKE 51+4, T+1: REM switch on tone 

320 FOR 1=0 TO 255: FOR J=0 TO 255 STEP 50 

330 POKE 51, J: POKE Sl+l,I 

340 NEXT J, I 

350 POKE 51+4, T: REM switch off tone 

360 RETURN 



Lines 10 thru 80 shuld be written before each of your sound 
programs. It makes the program a lot easier to handle. 

The next program makes the function of the envelope 
generator clearer. For reasons of simplicity, just copy 
lines 10 to 80 from the preceding program, and add lines 100 
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through 160 as found below. 



100 A=9: D=9: S=8: R=9: H=400 

110 POKE S1+5,16*A+D: POKE Sl+6,16*S+R 

120 POKE RS,0: POKE PL, 15 

130 POKE SI, 37: POKE 81+1,17 

140 POKE Sl+4,33 

150 FOR 1=0 TO H: NEXT 

160 POKE Sl+4,32 

Now try changing the data in line 100 in order to get a 
feeling for the parameters and what influence they have on 
the tone. The values A,D,S, and R may only be in a range 
from to 15, otherwise you will get an ILLEGAL QUANTITY 
ERROR. 

As you probably found out by now, variable A determines the 
increment time and variable D the decrement time of the 
volume level; variable H determines the time to hold the 
tone at the sustain level and variable R the release time to 
zero volume after resetting the GATE bit. 

Here is a program to play a three voice chord on the 
harpsichord. Again, keep lines 10 to 80 from the first 
program! 

100 A=0: D=l! S=13: R=10: H=100 

110 POKE S1+5,16*A+D: POKE Sl+6,16*S+R 

120 POKE S2+5,16*A+D: POKE S2+6,16*S+R 

130 POKE S3+5,16*A+D: POKE S3+6,16*S+R 

140 POKE RS,0: POKE PL, 15 

150 POKE SI, 37: POKE Sl+1,17 

160 POKE S2,154: POKE S2+l,21 

170 POKE S3, 177: POKE S3+l,25 

180 POKE Sl+4,33: POKE S2+4,33: POKE S3+4,33 

190 FOR 1=0 TO H: NEXT 

200 POKE Sl+4,32: POKE S2+4,32: POKE S3+4,32 

In the next example, the frequency of the tone is changed by 
reading the envelope generator of voice 3 (54300). Try 
experimenting with the data in line 100 again. 



100 A=9: D=9: S=9: R=9 : H=30 

110 POKE RS,0: POKE PL, 15 

120 POKE S3+5,16*A+D: POKE S3+6,16*S+R 

130 POKE S3+4,33 

140 FOR 1=0 TO H: POKE S3+1 , PEEK( 54300 ) : NEXT 

150 POKE S3+4,32 

160 FOR 1=0 TO R*4: POKE S3+1 ,PEEK( 54300 ) : NEXT 



Finally, let the "STARSHIP ENTERPRISE" pass by acousticly: 
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100 A=15: D=0: 8=8: R=13: H=8000 

110 POKE RS,0: POKE PL, 15 

120 POKE S1,0: POKE 81+1,30 

130 POKE 82,0: POKE 82+1,1 

140 POKE 83,0: POKE 83+1,100 

150 POKE 81+5,16*A+D: POKE 8l+6,16*8+R 

160 POKE 81+4,129: POKE 83+4,23 

170 FOR 1=0 TO H: NEXT 

18Q POKE 81+4,128: POKE 83+4,16 

We are sure that all these examples provide you enough 
incentive to try your own programs on the synthesizer. Have 
fun! 



4.3 8YNTHY-64 - Full-fledged Synthesizer software 

When people heard about the Commodore 64 and its tremendous 
capabilities in graphics and sound, they became excited. 
But after reading the user's guide, some people started to 
wonder whether some pages in this book were missing. Very 
little was said about programming color, sound, or graphics. 

You have to admit that programming color, sound, and 
graphics is not necessarily easy. You must set every 
register and memorize addresses to create the different 
sound. 

For example you need three POKE commands for the note "C": 
POKE 54272,37: POKE 54273,17: POKE 54276,65 



This is, of course, not very suitable for writing long 
compositions. You have to control the production of quarter 
or eighth notes, etc. All this may dim your joy in the 
Commodore 64 slightly. Fortunately, there is software that 
save you from the bothersome procedures of POKEs and PEEKs 
and machine language programming. 

One such software packages is SYNTHY 64. It allows you to 
take advantage of the fantastic sound capabilities of the 
Commodore 64, without having to resort to machine language 
programming. Using the 8YNTHY 64 as an example, we will 
show you how easy and relaxing the composition of music can 
be. This program allows you to play several voices, indicate 
the presently played tone, save and load the different songs 
and much more. SYNTHY-64 is a product of ABACU8 Software. 

With 8YNTHY-64, the composition of music is similar to the 
process used in writing regular sheet music - and using a 
structure similar to BA8IC. You put in a line number and 
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afterwards the commands or the notes. 

Notes are entered according to their names: the note "C" is 
entered simply as C. 

For the first note of each voice you may add. the following 
information: 

VOICE NOTE VALUE OCTAVE / NOTE DURATION 

Example: +G5/4. + stands for voice 1, "G" note is played in 
the fifth octave as a quarter note. If you don't change the 
voice, octave or note duration you need only indicate the 
note value on subsequent commands. 

When used to write music, syNTHY-64 gives you a BASIC shell 
in the editor. If you LIST the SYNTHY-64 shell, it looks 
like this: 

1 RUN"<clr>" <clr> appears as a reversed heart 

63000 REM 

63005 REM******* 

63010 @WP @P8 (SAO @D9 @S0 @R0 @F0 RETURN PIANO 
63020 @WT @A4 @D2 @S10 @R5 @F0 RETURN FLUTE 
63030 @WS @A6 @D0 @S10 @R1 CB XlO Y12 @F1 

RETURN TRUMPET 
63040 @WP @P1 @A0 @D9 @S0 @R0 @F0 RETURN BANJO 
63050 @WS @A6 @D5 @S2 @R2 ZH X8 Y12 @F1 RETURN 

ACCORDION 



The RUN command in line 1 must be the first command in every 
music program which you compose. Lines 63010 to 63050 are 
five independent routines that can be used to set up a voice 
to sound like a particular instrument. You set a voice from 
anywhere within the program to GOSUB to the proper 
subroutine. In our example, we would GOSUB the subroutine in 
line 63050 (accordion). 

+GOSUB 63050 

where + stands for voice 1 

The commands that you see in lines 63010 to 63050 are 
special features of SYNTHY-64. With these commands the 
proper registers in the Commodore 64 are set by SYNTHY-64. 
For example: 

@WP sets a voice to a pulse waveform 
@P8 sets the pulse width to 8 
@A0 sets the attack speed to 



You can use SYNTHY-64 to easily control the envelope 
generator, filters, ring modulator, and dozens of other 
variations allowed by the SID chip. 
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Below, is an example of using SYNTHY-64 to play a familiar 
piece of music - "Swing Low, Sweet Chariot". 



1 RUN"<clr>" 

10 +GOSUB63050 -0080863020 
50 T130 

100 +B5/4 G4/1 +G4/2 B5/4 G4/4. G +G/8 E/8 D/4. 
150 G/A G +G G G B5 B B/4 D +D/1 

200 E/8 G + D B/2 D/4 G4/4. C/2 +G/8 E G + D/4. 

250 G/8 G +G G G B5 D +B A/4 G4/2. G/1 +B5/4 

300 D G +G4/8 E G G/4 G/8 G C/2 +G G/4 E/8 G + D/4. 

350 G/8 G/1 +G G G B5 B D/4 D/2. D +D/4 

400 E/8 G + D B/4 B G4 G/8 C/2 +G G G E G/2 + D/4. 

450 A/8 G +G G G B5 D +B A/4 G4/1 G 

999 END 

63000 REM 

63005 PEM******* 

63010 @WP @P8 @A0 @D9 @S0 @R0 @F0 RETURN PIANO 
63020 @WT @A4 @D2 @S10 @R5 @F0 RETURN FLUTE 
63030 @WS @A6 @D0 @S10 @R1 ZB XlO yi2 @F1 RETURN TRUMPET 
63040 @WP @P1 @A0 @D9 @S0 @R0 @F0 RETURN BANJO 
63050 @WS @A6 ^D5 @S2 @R2 ZH X8 Y12 @F1 RETURN ACCORDION 

You can see in lines 10 through 450 that it is much easier 
to enter music using a note-oriented language as opposed to 
a POKE-oriented language. After entering the above music 
and listen to your song. Have fun composingl 

Of course, you can use SYNTHY-64 to create your own sounds 
and instruments. The Commodore 64 has a remarkable ability 
to make music and sound effects. 
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Chapter 5 GRAPHICS PROGRAMMING 



5.1 The Video Interface Chip 6567 



5.1.1 CHIP Description 

The VIC chip is a very sophisticated integrated of the 65xx 
family. Not only is it responsible for producing the 
pictures on the screen, but it also handles refreshing of 
the Commodore's 64K of dynamic memory. Here are the most 
important features: 

* ability to display 16 colors 

* produces a 40 characters X 25 lines picture 

* has high resolution graphics with 320 x 200 pixels 

* 5 types of bit mapping operations 

* handles 8 sprites with 24x21 dots each simultaneously 

* independent refreshing of 64K dynamic ram 

* movable character generator 

* movable video RAM 



Pin description of the VIC 6567 follow: 



1-7 D6-D0; processor data bus 

8 -IRQ; if a bit of the IMR and the IRR coincide 

9 -LP; input, light-pen strobe 

10 -CS; processor-bus action only take place if CS=0. 

11 R/W; 0=taking over data from bus 

12 BA; 0= data not ready at reading access 

13 VDD; +12V 

14 COLOR; color information output 

15 SYNC; Impulses to synchronize lines and screen 

16 AEC; 0=VIC uses system bus, 1= bus free 

17 0qOUT; clock output 

18 -RAS; Dynamic ram control-signal 

19 -CAS; as above 

20 GND 

21 0COLOR; Input color frequency 

22 j2fIN; Input dot frequency 

23 All; processor address-bus 



24-29 A0/A8-A5/A13; multiplexed (video-) ram address-bus 

30-31 A6-A7; (video-) ram address bus 

32-34 A8-A10; processor address bus 

35-38 Dll-8; data from color ram 

39 D7; processor data-bus 

40 VCC; +5V 
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5.1.2 Register Descriptions 



The VIC has 47 registers that are explained here. 

REG sprite X-coordinate 

This is the low-order 8 bits of the X-coordinate of 
sprite position. The ninth bit is found in REG 16. 

REG 1 sprite Y-coordinate 

This is the Y-coordinate of sprite position. 

REG 2- same as above for sprites 1 thru 7 

15 The register pair 2/3 is for sprite 1, pair 4/5 for 
sprite 2 etc. 

REG 16 sprite X-coordinate MSB 

These are the high order bits of the sprite X-regis- 
ters, bit for sprite 0, bit 1 for sprite 1 etc. 

REG 17 Control register 1 

Bit 0-2 number of dots to smooth scroll y-direction 

Bit 3 0=display 24 rows; l=display 25 rows 

Bit 4 0=blank screen 

Bit 5 l=standard bitmap mode 

Bit 6 l=extended color mode 

Bit 7 raster compare high order bit REG 18 

REG 18 When read, contains current raster position (8 bits 
plus bit 7, REG 17). 

When written to, contains the raster compare value. 
In this case, a raster inti jrupt is triggered when 
the current raster matches Uiis value 

REG 19 Contains the X-position of the light pen input after 
the light pen is triggered. 

REG 20 Contains the Y-position of the light pen input after 
the light pen is triggered. 

REG 21 Sprite enable 

Each spirte thru 7 is enabled (turned on) when its 
corresponding bit is set to 1. 

REG 22 Control register 2 

Bit 0-2 number of dots to smooth scroll x-direction 
Bit 3 0=38 column display; 1=40 column display 
Bit 4 l=multicolor mode 
Bit 5 l=reset VIC chip 

REG 23 Sprite expand X 

Each sprite thru 7 is expanded to twice normal 
width in the x-direction when its corresponding bit 
is set to 1. 
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REG 24 Base address of character generator and video ram 
Bit 1-3 address bits 11-13 for the character base 
Bit 4-7 address bits 10-13 for the video-ram base 

REG 25 IRR interrupt request register 

Bit raster interrupt (REG 18) 
Bit 1 sprite-background interupt (REG 31) 
Bit 2 sprite-sprite interrupt (REG 30) 
Bit 3 light pen interrupt (pin LP) 

Bit 7 set if zero if of the above bits is set to 1 

REG 26 IMR interrupt mask register 

Bit raster interrupt enable 

Bit 1 sprite-background interrupt enable 

Bit 2 spite-sprite interrupt enable 

Bit 3 light pen interrupt 
REG 27 Sprite-background priority 

Each sprite thru 7 has a priority higher than the 

background if the corresponding bit is zero. 

Background has higher priority if corresponding bit 

is one. 

REG 28 Sprite multicolor mode 

Each sprite thru 7 is displayed in multicolor mode 
if the corresponding bit is one. 

REG 29 Sprite expand Y 

Each sprite thru 7 is expanded to twice the normal 
height in the Y-direction if the corresponding bit is 
one . 

REG 30 Sprite-sprite collision 

For each sprite thru 7 that has collided (non- 
transparent areas, are coincident) the corresponding 
bit is set to one and IRR bit 2 is also set to one. 
The bits in this register remain set until the 
register is read. 

REG 31 Sprite-background collision 

For each sprite thru 7 that has collided (non- 
transparent area are coincident with non-background 
color characters) the corresponding bit it set to one 
and the IRR bit 1 is set to one. The bits in this 
register remain set until the register is read. 

REG 32 Border color 

Bits thru 3. 

REG 33 Background color #0 
Bits thru 3. 

REG 34 Background color #1 
Bits thru 3 . 

REG 35 Background color #2 
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Bits thru 3. 



REG 36 Background color #3 
Bits thru 3. 

REG 37 Sprite multicolor #0 
Bits thru 3. 

REG 38 Sprite multicolor #fl 
Bits thru 3. 

REG 39- Sprite color 

46 Color of sprites thru 7. 



5.1 .3 Display Techniques 

The VIC chip can produce different types of displays: 

a) standard characters displayed by the character generator; 

b) multicolor characters; c) extended color mode; d) high 
resolution bit mode; e) multicolor bit mode; f) sprite 
graphics. Each is described below: 

a) standard character generation: 

Each character on the keyboard is assigned a screen code. 
The letter A is given a screen code of 1, B a screen code 
of 2, etc. The list of screen codes appears in Appendix E 
of the Commodore 64 User's Guide. 

Screen memory holds the screen codes of the characters to 
be displayed. Since the Commodore 64 can display 25 lines 
of 40 characters each, there are 1000 screen memory 
locations. Screen memory is normally located beginning at 
$400 (1024 decimal) thru $7E7 (2023 decimal) but can be 
moved if desired. When a character is to be displayed, 
the character's corresponding screen code is written to 
the appropriate screen memory location. 

For each of the 1000 screen memory locations, there is a 
corresponding color memory location. Color memory is 
located beginning at $D800 (55296 decimal) thru $DBE7 
(56295) decimal. There is a one-to-one correspondence 
with screen memory. Each position in color meory contains 
a value of the color of the corresponding screen memory 
character to be displayed. The Commodore 64 can display 
16 colors, so only four bits of each color memory 
location are used. 

The character generator contains a set of patterns that 
make up the letters, numbers and graphics symbols that 
are to be displayed. The character generator is located 
beginning at $D000 (53248 decimal) thru $D7FF (55295 
decimal). Each pattern is 8 bytes long amd corresponds to 
the 8 rows of dots which make up a display character. For 
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example, the pattern in the character generator for the 
symbol @ looks like this: 

<lbyte > 



BITS 






Memory 




76543210 






location: 


Value 


*** 


Row 


1 


$D000 


$1C 


* * 


Row 


2 


$D001 


$22 


* * * 


Row 


3 


$D002 


$4A 


* * ** 


Row 


4 


$D003 


$56 


* ** 


Row 


5 


$D004 


$4C 




Row 


6 


$D005 


$20 


***** 


Row 


7 


$D006 


$3E 




Row 


8 


$D007 


$00 



The screen code for @ is 0; the screen code for A is 1; 
the screen code for B is 2, etc. The patterns in the 
character generator are ordered by this same screen code. 
Thus the pattern for the letter A would follow the 
pattern for the symbol @ and the pattern for the letter B 
would follow pattern for the letter A, etc. 

Now to display characters on the screen. As each raster 
line (TV scan) is displayed, the VIC chip gets the value 
of the screen code from screen memory. The screen code is 
multiplied by 8 and added to the address of beginning of 
the character generator ($D800). The resulting address is 
the location of the pattern to be used for^ this 
character. The corresponding color memory location is 
also read to determine the color in which the character 
is to be displayed. The pattern is read out bit by bit, 
row by row to create the character in the correct color 
on the screen. Using this method, up to 256 different 
characters can be depicted. 

Diagram 5-1 shows this in pictorial form. 
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Screen memory Color memory 

normally at $400 always at $D800 




Monitor or television screen 
DIAGRAM 5-1 



b) Multicolor character generations 

Using the standard character method of display, a 
character is displayed in a single color only. This is 
because each bit from the character generator is 
translated as either on or off. A bit which is on takes 
on the foreground color (as determined by the 
corresponding color memory location), while a bit which 
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is off takes on the background color. 

You tell the VIC chip that you want to use the multicolor 
character mode by setting set 4 of REG 22. Using the 
multicolor character mode, the Commodore 64 can display 
characters in one of four different colors. In the multi- 
color character mode, VIC chip translates the color and 
character generator information diffently than the 
standard character method. 

Here the color memory location for each screen code is 
examined. If bit 3 of a color memory location is 
(making the color value thru 7), then the character is 
displayed in the standard character mode as described in 
a) above. However if bit 3 of a color memory location is 
1 (making the color value 8 thru 15), then the character 
is displayed in the multicolor mode. 

During multicolor display, the VIC chip interprets the 
character generator differently. Instead of the bits of a 
pattern being interpreted as either on or off, multicolor 
character mode uses consecutive pairs of bits to 
construct a display character. The pairs of bits are 
interpreted as follows: 



BIT PAIR COLOR DISPLAYED 

00 Background color 

01 Background color 1 

10 Background color 2 

11 Color from low 3-bits 

of color memory 



COLOR 
TAKEN FROM 



$D021 
$D022 
$D023 



(53281) 
(53282) 
(53283) 



color memory 



This makes it possible to display a character made up of 
four different color within any 8X8 cell on the screen. 
Of course the character is now depicted as a 4X8 pattern, 
but with pixels twice as wide as with standard character 
mode. Again, up to 256 different characters can be 
displayed in multicolor character mode. 



c) Extended color mode: 

In the extended color mode, you can control the color of 
the background for each individual character. Using the 
extended color mode, the VIC chip can display a character 
in one color, having a second color as a background, on a 
screen of a third color. Thus, every character can be 
made up of two colors, but the background color is not 
necessarily the same for each character. 

To get into the extended color mode, you set bit 6 of REG 
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17. In the extended color mode, color memory is used the 
same way as in the standard character mode. However 
screen memory is interpreted differently. The two high- 
order bits (bits 7 and 6) are used to select the register 
from which to get the color value for the background. 
The following tables describes this: 



Screen code 

value of bits Use Background 

7 6 Register # Taken from 

$D021 (53281) 

1 1 $D022 (53282) 

10 2 $D023 (53283) 

11 3 $D024 (53284) 



Since two bits of the screen code are used to select the 
background color of the character, only six bits of the 
screen code are left to select the character patten . 
Thus only 64 different patterns can be displayed. 



d) High resolution bit mode: 

Using high resolution bit mode of display, the VIC chip 
can display 320 X 200 pixels in a choice of two colors 
within each 8X8 screen cell. Thus the 64,000 (320 X 
200) individual pixels require 8K of memory to represent 
an image on the high resolution screen. We call this 8K, 
bit-mapped memory. Each bit of the bit-mapped memory 
represents a pixel on the high resolution screen. 

To enable high resolution bit mode, bit 5 of REG 17 is 
set and REG 24 must be primed with the address of the 
bit-mapped memory. Color memory is ignored in the high 
resolution bit mode. Instead, the normal screen memory is 
utilized as a sort of color memory. 

Each byte of the normal screen memory supplies the color 
information for each 8X8 cell. Here normal screen 
memory is divided into two four-bit nibbles. If a bit in 
the bit-mapped memory is set to 1, then the high order 
nybble (bits 4-7) of normal screen memory specifies the 
color of these bits within that 8X8 cell. If a bit in 
the bit-mapped meory is set to 0, then the low order 
four bits (bits 0-3) specifies the color of these bits in 
that same cell. 



e) Multicolor bit mode: 

The multicolor bit mode allows each 8X8 cell to display 
up to four different colors. In the multicolor bit mode 
there are 160 X 200 pixels. The pixels are displayed 
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twice as wide on the screen in multicolor bit mode as in 
the high resolution bit mode. 

Multicolor bit mode is enabled by setting bit 5 or REG 17 
and bit 4 of REG 22 and REG 24 must be primed with the 
address of the bit-mapped memory. 

There is a one-to-one correspondence between the bit- 
mapped memory and screen display except that here the 8K 
bit-mapped memory is interpreted in pairs of two bits. 
The pairs of bits cause the double wide pixels to appear 
in color as follows: 



Bit pair Color from 

00 background register #0 

01 screen memory low nybble 

10 screen memory high nybble 

11 color memory 



f) Sprites: 

Sprites are large user definable characters that can be 
displayed anywhere on the screen. They can be displayed 
independently of the other types of displays on the 
screen. Sprites also have other properties: 

1) Up to 8 sprites can be defined and maintained by the 
VIC chip. The sprites are numbered thru 7 and each 
sprite is 24 X 21 pixels large. 

2) Each sprite can be expanded in the horizontal 
direction and/or the vertical direction immediately. 

3) Each sprite can be positioned on the screen 
independently of other sprites. 

4) A sprite can be defined as high resolution or 
multicolor. 

5) Sprites have priorities with respect to each other. 
Sprite has priority over sprite 1. This means that 
if sprite and sprite 1 are positioned so as to 
overlap, sprite would appear in front of spirte 1. 

6) Sprites have priorities with respect to background 
pbjects. A backgroud object is defined as any 
character or graphics on the screen that has other 
than the background color. Each sprite can be made to 
have a higher or lower priority than a background 
object. 

7) Collisions between sprites occur when they are 
positioned so as to overlap. Sprite to sprite 
collisions can be set to notify the Commodore 64 
automatically. 

8) Collisions between sprites and the background occur 
when a sprite is positioned to overlap a background 
object. Sprite to background collisions can be set to 
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notify the Commodore 64 automatically. 



A high resolution sprite is defined as a 24 X 21 pixel 
character. This means that 504 bits or 63 bytes are 
needed to define a high resolution sprite. In defining a 
high resolution sprite, each bit that is set to 1 appears 
in that sprites foreground color (REG 39 thru 46). Each 
bit that is set to is transparent and whatever color is 
behind it appears. 

A multicolor sprite is defined as a 12 X 21 pixel 
character with the horizontal pixels being double wide. 
Still 504 bits define a multicolor sprite, but the bits 
are interpreted in pairs. This allows a sprite to take on 
up to four colors. To set a sprite to multicolor mode, 
you must set the corresponding bit (0 thru 7) to one in 
REG 28. 

The sprite colors are defined by the bit pairs as 
follows: 



BIT Pair Color FROM 

00 Transparent Screen color 

01 Sprite MC REG $D025 (53285) 

10 Sprite color reg $D027-$D02E 

11 Sprite MC REG 1 $D026 (53286) 



The VIC chip must be told where to find the definition of 
the sprites. You pass this information to the VIC chip in 
the last 8 bytes of screen memory. Thus if you were using 
the normal screen memory location $400-$7FF, the memory 
locations $7F8 (2040) thru $7FF (2047) contain the 
pointers to the sprite definitions. The pointer for 
sprite is found at $7F8 (2040); the pointer for sprite 
1 is found at $7f9 (2041), etc. 

This pointer is actually the number of the 64-byte chunk 
of memory in which the sprite definition is found. For 
example the pointer, to a sprite located at $340 (832) is 
13 (832/64). This pointer would have to be placed in the 
appropriate screen memory pointer location for that 
sprite. For example, if we were using sprite 0, then we 
would place the value of the pointer (13) into the screen 
memory location for that pointer $7F8 (2040). Sprites do 
not appear on the screen until they have been enabled. 
This is done by setting the appropriate bit (0 thru 7) in 
REG 21 to on. To turn off that same sprite, the same bit 
in REG 21 must be turned off. 

A sprite may be positioned at one of 512 horizontal 
locations or 256 vertical locations on the screen. These 
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are more than the 320 horizontal and 200 vertical screen 
locations that appear on the screen. But since a sprite 
is so large, these extra locations allow a sprite to be 
moved smoothly into the viewing area of the screen. 

When using sprites, the viewing area can be thought of as 
the 320 horizontal and 200 vertical pixels on the screen 
as depicted below: 



+ 

I 24,30 



511,0 
+ 



I 
i 
1 
I 
! 
I 

+- 
255 



343,30 
+ 



200 



VIEWING AREA 



4/ <- 



320 pixels 



+— 
24,250 



+ 

343,250 



+ 

511,255 



Note that the above diagram shows this 320 X 200 pixel 
viewing area. A sprite's position is figured from its 
upper left corner. 

To position a sprite, the desired X-position is placed 
into the corresponding REG thru 14 (even registers) 
and its Y-position is placed into the corresponding REG 1 
thru REG 15 (odd registers). Since the register can hold 
only 256 positions, the extra bit (which makes possible 
the 512 positions) is located in REG 16. REG 16 contains 
the most significant bit for the X-position of each 
sprite. 

Anytime the non-transparent area of one sprite overlaps 
that of another sprite, the two are said to be 
coincident. When they are coincident, the sprite with the 
lower sprite number will appear in front of the other. 
This is called sprite-sprite priority and is strictly a 
function of the sprite number. So sprite has the 
highest priority of any sprite and always appears to pass 
in front of a higher numbered sprite. 
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A sprite may also be coincident with background area. The 
background area is any data on the screen that has a 
color different from the background color. When the 
sprite and the background area are coincident, either the 
sprite or the background can be made to appear in front 
of the other. This is controlled by the sprite-background 
priority register, REG 27. If the corresponding bit (0 
thru 7) in REG 27 is set to one, then the sprite has a 
lower priority than the background area and appears to 
pass behind the background area. If the corresponding bit 
(0 thru 7) in REG 27 is set to zero, then the sprite has 
a higher priority than the background area and appears to 
pass in front of the background area. 

The Commodore 64 also has the ability to detect when two 
sprites are coincident. This is called sprite-sprite 
collision detection. To enable this feature, bit 2 of REG 
26 must be set to one. When at least two sprites have 
collided, the Commodore 64 jumps to the IRQ vector 
(interrupt handling routine) and sets bit 2 of REG 25 to 
indicate the sprite-sprite collision. At the same time, 
the corresponding bit (0 thru 7) in REG 30 for each 
sprite that is coincident is set to one. 

Similarly, the Commodore 64 has the ability to detect 
when a sprite and background area are coincident. This is 
called sprite-background collision detection. To enable 
this feature, bit 1 of REG 26 must be set to one. When a 
sprite and a background area have collided, the Commodore 
jumps to the IRQ vector (interrupt handling routine) and 
sets bit 1 of REG 25 to indicate the sprite-background 
collision. At the same time, the corresponding bit (0 
thru 7) in REG 31 for each sprite that has collided with 
a background area is set to one. 

Sprites can also be expanded. You can double the height, 
the width or both to produce larger objects on the 
screen. To expand a sprite in width, the corresponding 
bit (0 thru 7) in REG 29 is set to one. To expand a 
sprite in height, the corresponding bit in REG 23 is set 
to one. You can expand a sprite in either the hires or 
multicolor modes. 



5.2 Progranuning color and graphics 

The outstanding features of the Commodore 64 are certainly 
its color and its builtin synthesizer. But how can you 
appreciate these features if you aren't told how to program 
graphics and sprites? On the following pages we will 
explain to you how to go about programming these Commodore 
64 specialties. 
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The graphic possibilities of the Commodore 64 are better 
than those of many other computers in the same or higher 
price category. 

The most important feature is the ability of the Commodore 
64 to control up to eight user definable objects on the 
screen called sprites. Each sprite can be made to appear in 
any of the 16 different colors. In addition, you can define 
and display multicolor sprites which can take on up to four 
different colors. A sprite is a 24 X 21 pixel character - 
comparable to a block of 3 X 3 normal size characters. 
And sprites can be made to move independently of one another 
with ease. 

The Commodore 64 allows you to display in up to 16 colors. 
The color of the background, foreground and the character 
can be changed. In order to change the character color from 
the keyboard, you hold the CTRL key or C= key while pressing 
a number key between 1 and 8. Table 5-1 lists the color that 
are possible: 



COLOR 



KEY 






COLOR VALUE 


CTRL 




1 


BLACK 





CTRL 




2 


WHITE 


1 


CTRL 




3 


RED 


2 


CTRL 




4 


TURQUOISE 


3 


CTRL 




5 


PURPLE 


4 


CTRL 




6 


GREEN 


5 


CTRL 




7 


BLUE 


6 


CTRL 




8 


YELLOW 


7 


C= - 


1 




ORANGE 


8 


C= - 


2 




BROWN 


9 


C= - 


3 




LIGHT RED 


10 


C= - 


4 




GRAY 1 


11 


C= - 


5 




GRAY 2 


12 


C= - 


6 




LIGHT GREEN 


13 


C= - 


7 




LIGHT BLUE 


14 


C= - 


8 




GRAY 3 


15 



TABLE 5-1 



Note C= is the Commodore key 



You can change the border and background colors by POKEing 
the color values into the corresponding registers. The 
border color is in REG 32 and the background color is in REG 
33. To change the border color, POKE 53280 with the desired 
color value. To change the background color, POKE 53281 with 
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the desired color value. For instance: 

POKE 53280,0: POKE 53281,0 

makes a totally black screen. In order to change the color 
of just one screen character, all you need is: 

POKE 55296,1 

This POKE changes the color of the character in the upper 
left corner of the screen to white. The color of any other 
characters on the screen would remain unchanged. Location 
55296 is the beginning of an area called color memory and 
continues to location 56295. Location 55296 contains the 
color of the character in line 1, column 1; location 55297 
the color of the character in line 1, column 2; location 
56295 the color of the character in line 25, column 40, etc. 

In order to get the screen full of A's, you could write the 
following brief program: 



10 PRINT CHR$(147) :REM CLR SCREEN 

20 FOR 1=1024 TO 2023: REM SCREEN MEMORY 

30 POKE I,ASC("A") 

40 NEXT I 

50 END 



You will see how the screen fills up with A's from the upper 
left to the lower right. 

In order to add color to the display, you would add the 
following line to the program: 

35 POKE 55296+I-1024,INT(RND(l)*15)sREM ADD COLOR RANDOMLY 



The program runs almost the 
after POKEing the letter 
corresponding color memory 
color . 



same, with the difference that 
"A" into screen memory, the 
location was set to a random 



Now lets investigate high resolution graphics. One use of 
high resolution color graphics is for plotting mathematical 
function. The following program illustrates the calculation 
of the bit mapped memory locations needed for X and Y 
coordinates . 

Commodore BASIC does not have builtin graphics commands, ^o 
drawing lines or circles is not very convenient from BASIC. 
But the fact that these builtin commands don't exist does 
not mean that the Commodore 64 is not capable of spectacular 
graphics. All that is needed are some programming tools. 

Towards the end of this section, we introduce you to such a 
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tool which we call HIRES GRAPHIC AID. Using this program, 
you can conveniently make draw graphics. This program even 
enables you to save complete graphics on cassette or 
diskette for later loading them from there. This program is 
written in a way that should enable you to use it 
practically and even extend it. 

Now back to the sample plotting program. The objective of 
this program is to draw a sine-wave on the screen. It is a 
very common example of the application of graphics. 



10 REM SINE - PLOT PROGRAM 

20 V=53248: REM START ADDR OF THE GRAPHIC PROCESSOR 

30 AD=8192: REM START ADDR OF THE HIRES BIT MAP 

40 POKE V+17,59: REM SET HIRES MODE 

50 POKE V+24,24: REM POINT TO SCREEN MEMORY 

60 FOR 1=1024 TO 2023: REM SET COLOR RAM 

70 : POKE Irl6 

80 NEXT I 

90 FOR 1=8192 TO 16383: REM CLEAR SCREEN MEMORY 
100 : POKE 1,0 
110 NEXT I 

120 FOR X=0 TO 319: REM DRAW THE X-AXIS 
130 : Y=100: REM POSITION OF THE X-AXIS 
140 : GOSUB 1000: REM CALL DRAWING ROUTINE 
150 NEXT X 

160 FOR Y=0 TO 199: REM DRAWING OF THE Y-AXIS 
170 : X=160: REM POSITION OF THE Y-AXIS 
180 : GOSUB 1000: REM CALL DRAWING ROUTINE 
190 NEXT Y 
200 X=0 

210 FOR I=-3. 14159265 TO 3.14159265 STEP 0.0196349541 

220 : REM INTERVAL LIMITS 

230 : Y=100+99*SIN(I): REM FUNCTION 

240 : GOSUB 1000 

250 : X=X+1 

260 NEXT I 

270 GOTO 270 

1000 OY=320*INT(Y/8) + (Y AND 7): REM CALCULATE DOT POSITION 
1010 OX=8*INT(X/8) 
1020 MA=2A((7-X) AND 7) 
1030 AV=AD+OY+OX 

1040 POKE AV,PEEK(AV) OR MA: REM PLOT DOT 
1050 RETURN 



The SINE PLOT PROGRAM assumes that the hires screen is 
arranged such that the origin (0,0) is located in the upper 
left corner. The subroutine beginning at line 1000, 
calculates the position of the individual dot to be plotted 
and then proceeds to plot that dot. 
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What all happens now in our plot-program? First, the two 
starting addresses of the VIC chip registers and hires 
screen memory are defined in lines 20 and 30. The next two 
POKE commands: 

POKE V+17» 27+32 and POKE V+24,16Hh8 

switch to graphics mode by changing the VIC chip registers. 
POKE V+17 ,27+32 changes the Commodore 64 from the standard 
character display (text mode) to the graphics mode of 
display. POKE V+24,16 + 8 point sets the VIC chip to use the 
bit map screen memory starting at 8192. 

If you want to switch back to the text page later on, you 
have to save their old values old values before changing the 
addresses in the VIC chip. You should save the values in two 
variables, since you will need these values later on. This 
could look like this: 

A1=PEEK(V+17) and A2=PEEK(V+24) 



To get back into text mode later, after having worked with 
graphics, you can just restore the VIC registers with these 
saved values: 



POKE V+17rAl and POKE V+24rA2 

Then you are back into the text page and can proceed 
normally. 

In lines 60 thru 80, you have to change the color of the 
graphics display. You do this by changing each byte of color 
memory. Lines 90 thru 110 clear the bit-mapped area to off 
so that nothing is displayed on the screen. 

Each bit in the bit-mapped screen area represents one screen 
pixel. Each bit has a value of either or 1 and if the bit 
is set to one, then the pixel is to be displayed; if the bit 
is set to zero, then the pixel is not to be displayed. Eight 
bits constitute a byte. One line of is represented as 8 
bits/byte X 40 bytes/line = 320 bits / line. One column is 
represented as 8 bits/byte X 25 bytes/column = 200 
bits/column. Altogether there are 64,000 bits in hires bit- 
mapped memory. 

Let's continue by looking at a character. A character is 
composed of 8 X 8 dots giving us 64 dots in a character. 
Each of these dots can be set or cleared independently of 
the others. A character arranged as such: 
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64 dots 



To enable each of the 64,000 bits to be displayed in 16 (2^) 
colors, we would need 4 X 64,000 bits or color memory. This 
is not practical since 16K of memory would be required just 
for this. So the 64 dots within this this 8X8 matrix must 
have the same color. This is not too serious a problen , 
since most television sets do not permit much higher 
resolution without the colors bleeding into each other. 

By using the bit mapped technique to draw graphics, we seem 
to lose the capability to write text to the graphics screen. 
But by duplicating the pixels that form a text character on 
the graphics screen, you can add text to graphics. 

On the following pages you will find the program HIRES 
GRAPHIC AID that will simplify graphics programming. 

If you are interested in programming graphics without the 
hassle of POKES and PEEKS, then we recommend either SCREEN 
GRAPHICS 64 or ULTRABASIC 64 from ABACUS Software. Each 
provide graphics extensions to BASIC which make graphics 
programming a cinch. Contact your dealer or ABACUS Software 
for details. 



The 


assembler 


listing for 


HIRES 


GRAPHIC 


AID follows: 








HIRES GRAPHIC AID 


180: 






ORG 


$C000 




190: 


COOO 


CR 


EQU 


13 




200: 


COOO 


XCOORD 


EOU 


$14 




210: 


COOO 


. FLAG 


EOU 


$97 




240: 


COOO 


LF 


EQU 


$B8 


; LOGICAL FILENUMBEI 


250: 


COOO 


SA 


EQU 


$B9 


; SECONDARY ADDRESS 


260: 


COOO 


FA 


EQU 


$BA 


; DEVICE NUMBER 


270: 


COOO 


TMP 


EQU 


$FD 




280: 


COOO 


ADR 


EQU 


TMP 




290: 


COOO 


AV 


EQU 


TMP 




300: 


COOO 


COLLOW 


EQU 


$400 


; START HIRES COLOR RAM 


310: 


COOO 


COLHI 


EQU 


$80 


;END HIRES COLOR RAM 


320: 


COOO 


GRALOW 


EQU 


$2000 


; START HIRES BIT MAP 


330: 


COOO 


GRAHI 


EQU 


$4000 


;END 


340: 


COOO 


GETCOR 


EQU 


$B7EB 


;GETS X-AND Y COORD. 


350: 


COOO 


CHKCOM 


EQU 


$AEFD 


; CHECKS ON COMMA 


360: 


COOO 


GETBYT 


EQU 


$B79E 


?GETS BYTE VALUE 
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370: 


COOO 






VIDEO 


EQU 


$D000 ; 


VIDEO CONTROLLER 


380: 


COOO 






GETPAR 


EQU 


$E1D4 ; 


GET FILE- AND DEVICE 


390: 


COOO 






CLSCRN 


EOU 


$E544 ;CLEAR SCREEN 


400 : 


COOO 






CHKOUT 


EQU 


$FFC9 ; 


SET OUTPUT DEVICE 


410: 


COOO 






PRINT 


EQU 


$FFD2 ; 


OUTPUT ROUTINE 


420 : 


COOO 






CLRCH 


EQU 


$FFCC ; 


OUTPUT ON DEFAULT 


430: 


COOO 






LOAD 


EQU 


$FFD5 ; 


LOAD ROUTINE 


440: 


COOO 






SAVE 


EQU 


$FFD8 ;SAVE ROUTINE 


450: 








JUMP 


TABLE FOR FUNCTIONS 


460: 


COOO 


4C 


IE 


CO 


JMP 


INIT 


SWITCH ON GR. MODE 


470: 


C003 


4C 


3D 


CO 


JMP 


CLEAR ; 


CLEAR GRAPHIC 


480: 


C006 


4C 


54 


CO 


JMP 


COLOR ; 


SET COLOR 


490: 


C009 


4C 


71 


CO 


JMP 


RE VERS 7 


INVERT GRAPHIC 


500 : 


COOC 


4C 


8B 


CO 


JMP 


SET ; 


SET POINT 


510: 


COOF 


4C 


8E 


CO 


JMP 


RESET ; 


RESET POINT 


520 : 


C012 


4C 


52 


CI 


JMP 


GLOAD ; 


LOAD GRAPHICS 


530: 


C015 


4C 


3A 


CI 


JMP 


GSAVE ; 


SAVE GRAPHICS 


540: 


C018 


4C 


18 


CO SELF 


JMP 


SELF 


NOT USED 


550: 


COIB 


4C 


62 


CI 


JMP 


GOFF 


SWITCH OFF GR. MODE 


560: 


COIE 


AD 


11 


DO INIT 


LDA 


VIDEO+17 




570: 


C021 


8D 


72 


CI 


STA 


STOREl 




580: 


C024 


AD 


18 


DO 


LDA 


VIDEO+24 




590: 


C027 


8D 


73 


CI 


STA 


ST0RE2 




600: 


CO 2 A 


A9 


33 




LDA 


#27+32 


;SET GR. MODE 


610: 


C02C 


8D 


11 


DO 


STA 


VIDEO+17 




620: 


C02F 


A9 


18 




LDA 


#16+8 




630: 


C031 


8D 


18 


DO 


STA 


VIDEO+24 




640: 


C034 


20 


3D 


CO 


JSR 


CLEAR 




650: 


C037 


A2 


10 




LDX 


#16 




660: 


C039 


20 


5A 


CO 


JSR 


COL 




670: 


C03C 


60 






RTS 






680: 


C03D 


AO 


00 


CLEAR 


LDY 


#0 


; CLEAR GR. MEMORY 


690: 


C03F 


A9 


20 




LDA 


#>GRALOW 




700: 


C041 


84 


FD 




STY 


TMP 




710: 


C043 


85 


FE 




STA 


TMP+1 




720: 


C045 


98 




CLRl 


TYA 






730: 


C046 


91 


FD 


CLR2 


STA 


(TMP) ,Y 




740: 


C048 


C8 






INY 




750: 


C049 


DO 


FB 




BNE 


CLR2 




760: 


C04B 


E6 


FE 




INC 


TMP+1 




770: 


C04D 


A5 


FE 




LDA 


TMP+1 




780: 


C04F 


C9 


40 




CMP 


#>GRAHI 




790: 


C051 


DO 


F2 




BNE 


CLRl 




800: 


C053 


60 






RTS 






810: 


C054 


20 


FD 


AE COLOR 


JSR 


CHKCOM 


;SET COLOR 


820: 


C057 


20 


9E 


B7 


JSR 


GETBYT 


;GET COLOR CODE 


830: 


C05A 


AO 


00 


COL 


LDY 


#0 




840: 


C05C 


A9 


04 




LDA 


#>COLLOW 




850: 


C05E 


84 


FD 




STY 


TMP 




860: 


C060 


85 


FE 




STA 


TMP+1 




870: 


C062 


8A 




COLl 


TXA 




; COLOR CODE IN ACC • 


880: 


C063 


91 


FD 


C0L2 


STA 


(TMP) , Y 




890: 


C065 


C8 






INY 






900: 


C066 


DO 


FB 




BNE 


C0L2 




910: 


C068 


E6 


FE 




INC 


TMP+1 
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920 : 


C06A 


A5 


FE 






LDA 


TMP+1 


930 : 


C06C 


C9 


08 






CMP 


#>CULnI 


940 : 


C06E 


DO 


F2 






BNE 


COLl 


950 : 


C070 


60 








RTS 




960: 


C071 


AO 


00 




RE VERS 


LDY 


#0 ; INVERT GRAPHICS 


970: 


C073 


A9 


20 






LDA 


#>GRALOW 


980: 


C075 


84 


FD 






STY 


TMP 


990 : 


C077 


85 


FE 






STA 


TMP+1 


1000 : 


C079 


Bl 


FD 




REVl 


LDA 


(TMP) f Y 


1010 : 


C07B 


49 


FF 






EOR 


#%11111111 ; INVERT BITS 


1020 : 


C07D 


91 


FD 






STA 


(TMP) f Y 


1030 : 


C07F 


C8 








INY 




1040: 


C080 


DO 


F7 






BNE 


REVl 


1050 : 


CO 8 2 


E6 


FE 






INC 


TMP+1 


1060: 


C084 


A5 


FE 






LDA 


TMP+1 


1070 : 


C086 


C9 


40 






CMP 


#>GRAHI 


1080: 


C088 


DO 


EF 






BNE 


REVl 


1090 


: C08A 


60 




ILL 


RTS 


; RETURN IF INVALID COORD. 


1100 : 


C08B 


A9 


00 




SET 


LDA 


#0 ;SET POINT 


1110 


: C08D 2C 






.BYT $2C ;SKIP INSTRUCTION 


1120 J 


C08E 


A9 


80 




RESET 


LDA 


#$80 ; RESET POINT 


1130 s 


CO 90 


85 


97 






STA 


FLAG 


1140: 


C092 


20 


FD 


AE 




JSR 


CHKCOM 


1150: 


C095 


20 


EB 


B7 




JSR 


GETCOR ;X TO XCOOR,Y TO X-REG 


1160 : 


C098 


EO 


C8 






CPX 


# 200 


1170 


C09A 


BO 


EE 






BCS 


ILL ;Y COORDINATE > 199 


1180 : 


C09C 


A5 


15 






LDA 


XCOORD+1 


1190 


, C09E 


C9 


01 






CMP 


#>320 


1200 


• COAO 


90 


08 






BCC 


OK 


1210 


: C082 


DO 


E6 






BNE 


ILL 


1220 


! C0A4 


A5 


14 






LDA 


XCOORD 


1230 


: C0A6 


C9 


40 






CMP 


#<320 ;X COORDINATE > 319 


1240 


: C0A8 


BO 


EO 






BCS 


ILL 


1250 


: COAA 


8A 






OK 


TXA 


;Y COORDINATE TO ACC. 


1260 


: COAB 


4A 








LSR 




1260 


: COAC 


4A 








LSR 




1 260 


: COAD 


4A 








LSR 


; DIVIDED BY 8 


1270 


: COAE 


A8 








TAY 


;OFFY=320*INT( Y/8)+(YAND7) 


1290 


: COAF 


E9 


21 


CI 




LDA 


MULTLO,Y 


1300 


: C0B2 


8D 


75 


CI 




STA 


OFFY 


1310 


: C0B5 


B9 


08 


CI 




LDA 


MULTHI,Y ;TIMES 320 


1320 


: C0B8 


8D 


76 


CI 




STA 


OFFY+1 


1330 


: COBB 


8A 








TXA 


?Y COORDINATE 


1340 


: COBC 


29 


07 






AND 


#%111 


1350 


: COBE 


18 








CLC 


;PLUS Y AND 7 


1360 


: COBF 


6D 


75 


CI 




ADC 


OFFY 


1370 


: C0C2 


8D 


75 


CI 


;OFFX 


STA 
= 8 * 


OFFY 
INT(X/8) 


1390 


: C0C5 


A5 


14 






LDA 


XCOORD 


1400 


: C0C7 


29 


F8 






AND 


#%11111000 


1410 


: C0C9 


8D 


74 


CI 




STA 


OFFX 


1420 


: COCC 


18 








CLC 


;AV=GRALOW+OFFY+OFFX 


1430 


: COCD 


A9 


00 






LDA 


#<GRALOW 


1440 


: COCF 


6D 


75 


CI 




ADC 


OFFY 


1450 


: C0D2 


85 


FD 






STA 


AV 



80 





. \^UU4 


Ay 


on 
zU 


1 Ann 
1 4 / u 


i LUDb 


bD 


1 b 


1480 


5 C0D9 


85 


FE 




• CODB 


lo 




1500 


! CO DC 


A5 


FD 


1510 « 


CODE 


6D 


74 


1520 


: COEl 


85 


FD 


1530' 


C0E3 


A5 


FE 


1540 


: C0E5 


65 


15 


1550 


C0E7 


85 


FE 


1570 


: C0E9 


A5 


14 


icon 


' COEB 


29 


07 


1 RQ n 
1 u 


• LUED 


A O 


U / 


1 cr\f\ 
loUU 


5 COEF 


AA 




lb iU ' 


. LUFU 


Ay 


n 1 
01 


icon 
lb zU 


: C0F2 


CA 




1 £ o n . 
IbiO J 


C0F3 


30 


03 


lb4U 


CUFd 


OA 




IboO ' 


C0F6 


DO 


FA 


1660 


{ C0F8 


AO 


00 


1 b / U 


CO FA 


24 


97 


IboU 


I COFC 


10 


05 


1 (\QC\ 

1 Oi7 U 




4y 


r r 


1700 


: ClOO 


31 


FD 


17 lU 


C102 


2C 




1720 


! C103 


11 


FD 


1730 


5 C105 


91 


FD 


174U 


: CI 07 


60 




1750 


• C108 








C108 


00 


00 




Clio 


08 


OA 




C118 


12 


14 




C120 


ID 




1760: C121 








C121 


00 


40 




C129 


00 


40 




CI 31 


00 


40 




C139 


00 




1870: C13A 




FD 


1880: C13D 


20 


D4 


1890 


. C140 


A O 

Az 


n n 
00 


1900 


! C142 


AO 


40 


1910 


: C144 


A9 


00 


1920 


: C146 


85 


FD 


1930 


: C148 


A9 


20 


1940 


: C14A 


8 5 


FE 


1950 


: C14C 


A Q 

Ay 


FD 


1960 


: C14E 


on 
zU 


Do 


1970 


t C151 


60 




1980 


: C152 


20 


FD 


1990' 


C155 


20 


D4 



CI 



CI 



SET4 



SET3 



SET5 
END 

MULTHI 
; TABLE 
01 02 03 
OB OC OD 
15 16 17 



LDA 

ADC 

STA 

CLC 

LDA 

ADC 

STA 

LDA 

ADC 

STA 

LDA 

AND 

EOR 

TAX 

LDA 

DEX 

BMI 

ASL 

BNE 

LDY 

BIT 

BPL 

EOR 

AND 

.BYT 

ORA 

STA 

RTS 

EQU 



#>GRALOW 

OFFY+1 

AV+1 

AV 

OFFX 

AV 

AV+1 

XCOORD+1 

AV+1 ;MA 

XCOORD 

#7 

#7 



2t((7-X)AND 7) 



#1 



SET3 



;MA 



; SHI FT BIT LEFT 
? ABSOLUTE JUMP 
;ACC. CONTAINS MASK 



SET4 
#0 
FLAG 
SET5 
#$FF 

(AV) ,Y ; CLEAR BIT 
$2C 

(AV) ,Y ;SET BIT 
(AV) ,Y 

END+1 



HIBYTES N*320 
05 06 07 
OF 10 11 
19 IB IC 



MULTLO EQU MULTHI+25 
; TABLE LOBYTES N*320 

80 CO 00 40 80 CO 

80 CO 00 40 80 CO 

80 CO 00 40 80 CO 



AE GSAVE 
El 



FF 

AE 
El 



GLOAD 



JSR 


CHKCOM 


;SAVE GRAPHIC 


JSR 


GETPAR 


;GET FILENAME 






& DEVICE ADDR 


LDX 


#<GRAHI 




LDY 


#>GRAHI 




LDA 


#<GRALOW 




STA 


TMP 




LDA 


#>GRALOW 




STA 


TMP+1 




LDA 


#TMP 




JSR 


SAVE 




RTS 






JSR 


CHKCOM 


;LOAD GRAPHIC 


JSR 


GETPAR 


;GET FILENAME 



& DEVICE ADDR 
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2000: 


C158 


A9 


61 






LDA 


#§61 


2010: 


C15A 


85 


B9 






STA 


SA 


2020: 


C15C 


A9 


00 






LDA 


#0 


2030: 


C15E 


20 


D5 


FF 




JSR 


LOAD 


2040: 


C161 


60 








RTS 




2050: 


C162 


AD 


72 


CI 


GOFF 


LDA 


STORE 1 


2060: 


C165 


8D 


11 


DO 




STA 




2070 


• C168 


AD 


73 


CI 




LDA 


STORE z 


2080 


: C16B 


8D 


18 


DO 




STA 


VIDE0+Z4 


2090 


: C16E 


20 


44 


E5 




JSR 


CLSCRN 


2100 


: C171 


60 








RTS 




2110 


: C173 








STORE 1 


BYT 


+ i 


2120 


: C174 








STORE 2 


BYT 


* + l 


2130 


: C175 








OFFX 


BYT 


* + l 


2140 


: C177 








OFFY 


BYT 


* + 2 



;SEC ADDR 1 
;LOAD FLAG 



: CLEAR SCREEN 



To use this machine language routine, you can use the 
following calls from BASIC: 



SYS49152 INIT 

SYS49555 CLEAR 

SYS49158,c COLOR 

SYS49161 REVERSE 

SYS49164rX^y SET 

SYS49167,x,y RESET 

SYS49570»"f"r<3 GLOAD 

SYS49573, "frd GSAVE 

SYS49579 GOFF 



turn graphics mode on 
clear the screen 
set plotting color to c 
reverse each point on screen 
set point at coord. x,y 
reset point at coord. x,y 
load graphics picture with 

name "f" from device d 
save graphics picture with 

name "f" to device d 
turn graphics mode off 



5.3 SPRITES - Some graphics magic on the Commodore 64 



5.3.1 Introduction to Sprites 

Aside from its superb sound synthesis capabilities, the 
ability to create and manipulate sprites is certainly the 
outstanding feature of the Commodore 64. Sprites are large 
graphics designs that can be controlled independently of the 
other graphics or text on the screen. 



5.3.2 Sprite Capabilities 

For a moment, let's imagine that there are no such thing as 
sprites. You are creating an arcade game and want to draw a 
finely detailed character (we'll call it a blob) on the 
screen and and animate it. The fine detail requires that you 
use the high resolution screen. As previously discussed, you 
have to draw the blob on the screen by using bit mapped 
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techniques to place the character at the desired position on 
the screen. This involves setting each pixel that comprises 
the blob to on. If a blob is made up of 60 pixels, then all 
60 pixels must be turned on. Additionally, you have to 
coordinate the color of the pixels, by manipulating the 
screen memory (which control the bit mapped graphics 
colors) . 

In order to move the blob, you have to calculate a new 
position for each pixel that makes up the blob. But before 
you redraw the blob at its new position, you must first make 
the earlier blob disappear from its old position. You do 
this by resetting (turning off) each pixel that was on. Then 
you can proceed to redraw the blob at its new position. 
Repeating this technique, you can make the blob move across 
the bit mapped graphics screen. 

Now let's say that there are some other stationary objects 
on the screen, maybe a house. In order to make it appear 
that the blob is entering the house, we must make the blob 
gradually disappear as its pixels meet the pixels that make 
up the house. To do this, you must know the position of the 
house's pixels on the screen. As the blob's new pixel 
positions are calculated, they are compared to the pixel 
positions of the stationary house. If these pixel position 
coincide, then the blob's new pixel at that position is not 
set on. Instead, that position is left to display the house. 
If you continue along these same lines, you can make the 
blob disappear into the house. 

In a like manner, you can make the blob pass in front of the 
stationary house. When the blob's new pixel position 
coincides with the pixel position of the house, the blob's 
pixel is displayed instead of the house's pixel. The same 
technique is applicable to collisions that might occur with 
other blobs. 

You can see that all of these calculations and logic to 
determine which pixels need to be turned on or off is not 
only complicated, but very time consuming. If done from a 
BASIC program, the blob might be able to move about as fast 
as molases. If done from a machine language program, the 
blob can be made to move fast, but only at the expense of a 
lot of program coding and testing. 

The idea behind sprites is that most of the tedious and 
time-consuming calculations to determine the blob's new 
position are handled by the VIC chip. A sprite, once 
defined, can be moved and manipulated very easily from 
within a program. 

After you define a sprite, you do not have to turn on or off 
individual pixels when drawing the sprite. When you move the 
sprite from one position on the screen to another, you do 
not have to erase the previous positon of the sprite. You 
can make a sprite pass in front of or behind stationary 
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objects automatically. In fact, you can make one sprite pass 
in front of or behind another sprite. Or make it disappear 
altogether. Eight such sprites can be handled by the 
Commodore 64 at one time. 

If you want, you can have the Commodore 64 notify you when a 
sprite and a stationary object or two different sprites 
have collided. And changing the color of the sprite is also 
very simple. These sprite capabilties makes the Commodore 64 
a very powerful computer. 



5.3.3 Sprite Structure 

When using sprites, it is good idea to be familiar with 
binary arithmetic. Sections 1.1 and 5.1 will acquaint you 
with the registers of the VIC chip. 

When using sprites, the majority of the work involves 
setting up the registers of the VIC chip that control 
movement, color, and the other features of the sprites. 
Each register consists of 8 bits which the user can set or 
reset according to the desired effect. 

When using sprites, we refer to the numbers which define hew 
the sprite looks as the sprite pattern. An important point 
in using sprites is the location in memory of the sprite 
pattern. As you know, one sprite consists of 24x21 points 
(pixels). Horizontally a sprite has 24 pixels and 
vertically it has 21 pixels. 
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SPRITE LAYOUT 

1 2 3 

ROW 1 

ROW 2 11 II' 

ROW 3 

ROW 4 J ' 

ROW 5 . 

ROW 6 

ROW 7 

ROW 8 * 

ROW 9 

ROW 10 

ROW 11 *. *. * 

ROW 12 . . .* 

ROW 13 

ROW 14 

ROW 15 

ROW 16 .* * 

ROW 17 

ROW 18 * 

ROW 19 

ROW 20 ! * * ' 

ROW 21 * * * 



Each "row" consists of 3-bytes each with 8 pixels or bits 
each. The color of a sprite can be specified in either of 
two ways: 

1. HIRES SPRITE 

When using hires sprites, one bit in the sprite 
pattern produces one point on the screen. This point 
has either the background color if the bit is zero, or 
the color specified by its corresponding register (REG 39 
thru 46) if the bit is one. 

2. MULTICOLOR SPRITE 

When using multicolor sprites, two bits in the sprite 
pattern produces one point on the screen. The point is 
actually two pixels wide on the screen. The point is 
either: the color of the background if the bits are 00; 
the color specified by REG 37 if the bits are 01; the 
color specified by its corresponding register (REG 39 
thru 46) if the bits are 10; or the color specified by 
REG 38 if the bits are 11. 

In the following section, we deal with the programming of 
these sprites. 
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5.3.4 Programming sprites 



5.3.4.1 Sprite Patterns 

When programming sprites, you must first set up the sprite 
pattern which is to represent the sprite. 

In order to help you in developing sprites. Diagram 5-1 is a 
a design sheet. You may either copy this design sheet or use 
it as a sample for your own design sheet. 

First draw a rough sketch of the sprite on a separate piece 
of paper. Decide whether the sprite is to be one color or 
multicolor. Next transfer this rough sketch to the sprite 
design sheet. 

If using one color sprites, fill in each box on the sprite 
design sheet that corresponds to the rough sketch. Treat ore 
box on the sheet as one pixel on the screen. If you fill the 
squares that make the pattern completely and then stand back 
from the sprite design sheet, it is quite easy to recognize 
the pattern and determine if any changes are required to 
give the sprite the final touches. 

If using multicolor sprites, fill in each box with the 
desired color (color pencils work nicely) that corresponds 
to the rough sketch. Keep in mind that two horizontally 
adjacent boxes on the sprite design sheet correspond to one 
pixel (each pixel is twice as wide) on the screen. Only 
four different colors may be used. One color is common and 
is the background color; one color is unique for each 
sprite; and two colors are common to all sprites that are 
used. The background color is always given a value of 00, so 
the values for the two horizontally adjacent boxes is also 

00. The unique color is always given a value of 10, so the 
values for the two horizontally adjacent boxes is also 10. 
The color specified by multicolor register is given a 
value of 01, while the color specified by multicolor 
register 1 is given a value of 11 and these are the values 
for the two horizontally adjacent boxes if these colors are 
chosen on the sprite design sheet. 

With either one color or multicolor sprites, the next step 
is to determine the numeric values that make up the sprite 
as drawn on the sprite design sheet. To do this, you treat 
each group of eight horizontal boxes as a unit. Add the 
number that corresponds to that column for all boxes. Keep 
in mind that the multicolor sprites may have a value or 00, 

01, 10, or 11 according to the color that is represented by 
the pair of horizontally adjacent boxes. 
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SPRITE DESIGN SHEBT 
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For each unit of eight boxes, the sum of these eight values 
are used in subsequent POKE commands. The most convenient 
way to define the points of a spirte pattern is by entering 
them into BASIC DATA statements. Then you can READ them 
from within a FOR-NEXT loop and POKE them into a memory area 
that you've set aside for the pattern. The sprite is now in 
memory and ready for use. In order to get the programming a 



little more organized. 


you may want to arrange your DATA 


statements to look 


like 


this : 


1000 


DATA 


000 ,000 ,000 


1010 


DATA 


000 ,000 ,000 


1 090 
± yj £.\j 


DATA 


000 .000 .000 

\J \J \J f \J \J \J f \j \J \J 


1030 


DATA 


000 ,000 ,000 


1040 


DATA 


000 .000 .000 

\J \J \J f \J \J \J ^ \J \J \J 


1050 


DATA 


000 ,000 ,000 


1060 


DATA 


000,000,000 


1070 


DATA 


003 ,255 ,255 


1080 


DATA 


000 ,002,000 


1090 


DATA 


192,170,128 


1100 


DATA 


194,150,080 


1110 


DATA 


234,150,080 


1120 


DATA 


194,170,168 


1130 


DATA 


192,170,168 


1140 


DATA 


000,032,128 


1150 


DATA 


000,170,160 


1160 


DATA 


000,000,000 


1170 


DATA 


000,000,000 


1180 


DATA 


000,000,000 


1190 


DATA 


000,000,000 


1200 


DATA 


000,000,000 



This structure represents the 3 bytes (24 bits) X 21 bit of 
a sprite. Each number between and 255 represents the 
pixel pattern that makes up the sprite. Thus it is possible 
to program any figure - from a single point to a full 24 X 
21 block or any other combination in between. 



5.3.4.2 The Program 



Now let's move on to programming the sprites. Back to our 
example. What do these DATA statement represent? For this we 
have to present the decimal numbers in binary again: 
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SPRITE PATTERN 



12 3 



LINE 


1 










































































LINE 


2 










































































LINE 


3 










































































LINE 


4 










































































LINE 


5 










































































LINE 


6 










































































LINE 


7 










































































LINE 


8 




















1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


T TMP 


Q 

y 


U 


u 


u 


u 


u 


u 


u 


u 


u 


u 


u 


u 


u 


u 


u 


u 


u 


u 


u 


u 


u 





u 


u 


T TMP 






1 


n 
u 


u 


u 


u 


u 


u 


± 


u 


1 


u 


1 


u 


1 


u 


1 


u 


u 


u 


u 


u 


u 


u 




1 1 




1 


u 


U 


u 


U 


i 


U 


i 


f\ 
u 


u 


1 


u 


i 


1 


U 


u 


1 


U 


1 


u 








u 


T TMP 


X z 


r 


1 

J. 


± 


u 


1 


u 


1 


u 


1 


u 


u 


1 


u 


1 


1 


u 


u 


1 


u 


i 


u 


u 


U 


u 






^ 


1 
1 


u 


u 


u 


u 


1 


u 


1 


U 


1 


U 


1 


U 


1 


U 


1 


U 


1 


u 


1 


U 


U 


U 




1 A 
J. ft 




1 


u 


u 


u 


u 


U 


u 


1 


U 


1 
1 


u 


1 


U 


1 


U 


1 


u 


1 


U 


1 


U 


U 


U 


LINE 


15 
































1 

















1 























LINE 


16 


























1 





1 





1 





1 





1 





1 

















LINE 


17 










































































LINE 


18 










































































LINE 


19 










































































LINE 


20 










































































LINE 


21 











































































Here we have a pattern of a helicopter. If you don't 
recognize it on paper, you will when it appears on the 
screen. 



5 .3 .4 .3 Turning the Sprite On 

After having defined the sprite pattern, you have to turn it 
on. The sprite number determines how to turn that sprite on. 
The corresponding bit (bit thru 7) in REG 21 is set to one 
for the sprite number that is to be displayed. 

Sprite: 76543210 
Bit : b7 b6 b5 b4 b3 b2 bl bO 
Value : 128 64 32 16 8 4 2 1 



POKE V+21rl makes sprite visible; POKE 21,3 (values of 1 + 
2) makes sprites and 1 visible; and POKE V+21r255 (values 
of 1 + 2 + 4 + 8 + 16 + 32 + 64 + 128) makes spirtes thru 
7 visible. 
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5 .3 .4 .4 Memory Areas for Sprites 



Next the addresses of the sprite patterns must be specified. 
The addresses of the sprite patterns are placed in the last 
eight locations of screen memory and are called pointers. If 
screen memory in its default location ($400), then these 
pointers are located at 2040 thru 2047. Each sprite pattern 
is 63 bytes in length (24 bits X 21 rows) = 63 bytes. An 
extra byte is added to the sprite pattern as a separator and 
is set to zero. Thus we should speak of each sprite pattern 
as being 64 bytes in length. 

Within a 16K memory bank, there are 256 64-byte blocks. The 
value in a sprite pointer is actually the number of the 
block within that 16K block where the sprite's pattern is 
located. 

For example, if a sprite is defined beginning at memory 
location 832, then the pointer for that sprite is 13 (832 / 
64 =13). If this pattern is to be used for sprite 0, then we 
would POKE 2040,13 to set the correct sprite pointer. 
Location 2040 is the pointer for sprite 0. The value of 13 
is the 13th 64-byte block in the 16K memory bank that the 
VIC chip can address. 

From the above, it is clear that a sprite pattern must start 
on a 64-byte boundary. When screen memory is at its default 
location ($400 = 2048 decimal), the following addresses and 
pointer values may be used for sprite definitions: 



The following table gives you the pointer location of each 
sprite for the default screen memory: 



POINTER : 2040 2041 2042 2043 2044 2045 2046 2047 
Sprite :01234567 

If you place the value 13 in memory 2040 it means that the 
sprite pattern begins at memory location 832. You can also 



Address 



Pointer 



640 
704 
768 
832 
896 
960 
1024 
1088 
1152 
1216 
1280 



10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
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write 13 in memory location 2041. This means that sprite 1 
is has the same pattern as sprite 0. In this case, all of 
the other information, such as color, position, expansion 
etc., may be different for these two sprites, but the basic 
shapes are identical. 

This feature of sprites can potentially reduce the 
programming effort tremendously, in games, for example, you 
may have several alien creatures that are clones of each 
other, except for position. One sprite pattern can serve as 
the model for all of these aliens. By setting the 
appropriate sprite pointer to refer to the same pattern, you 
can clone seven more of these creatures while the computer 
takes care of the display. Each of the creatures can have 
its own color. Furthermore, each creatures can be positioned 
independently of each other. 

By using a FOR-NEXT loop from BASIC, the values of sprite 
pattern may be transferred to the memory area, starting at 
832. 

FOR 1=0 TO 62: REM 63 BYTES OF A SPRITE 
READ X : REM READING OF THE BYTE 

POKE 832+1, X : REM WRITING OF THE BYTE INTO THE BLOCK 
NEXT I 2 REM END OF LOOP 



5 .3 .4 .5 Sprite Positioning 

Next we want to specify the position of the sprite on the 
screen. A sprites's position is set by priming two 
registers: one that specifies the sprite's X-position and 
one that specifies the sprites's Y-position. 

From now on we'll use variable V in or examples to stand for 
the beginning address of the video controller registers. We 
set V = 53248, the address is the start address of the video 
controller. So one of the first line number of every 
program that uses graphic or sprites should read like this: 

10 V=53248: REM START OF VIDEO CONTROLLER 

To position a sprite on the screen you need two POKE 
commands: 

POKE V+0 ^COLUMN: REM SPRITE - X position 
POKE V+l^LINE : REM SPRITE - Y position 

So if you want to position the helicopter near the middle of 
the screen, all you need is 

POKE V+0rl84 
POKE V+1,125 
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5.3.4.6 Shifting Sprites 



We can also move the sprites quite easily. In order to 
achieve smooth movement, we should change the location of 
the sprite by one screen point at a time. We can do this by 
using a FOR-NEXT loop: 

100 FOR 1=159 TO 100 STEP -1 
110 : POKE V+0,I 

120 NEXT I 



The above routine moves the helicopter to the left, yet it 
remains in the same vertical position. If you want to watch 
the movement more slowly, you have to insert another loop 
before the NEXT I: 

115 FOR 11=1 TO 100: NEXT 



Now the sprite moves much slower and you can watch it. 

You might have recognized one problem: there are 320 
horizontal positions. But the highest value of a POKE into 
the X-register can only be 255. How can you move the sprite 
to the right side of the screen? 

For this, there is another register. Register 16 holds one 
high order bit for each sprite. If the X-coordinate of a 
sprite is higher than 25 5 , then the bit for the 
corresponding sprite is set to one. For sprite 1, we would 
do the following for an X-coordinate greater than 255: 

POKE V+16,1 

After this POKE, 255 is added to our addressing. Now POKE 
V+0,1 would mean a positioning on dot 256. In order to get 
to dots smaller than 256, this bit has to be set back again: 

POKE V+16r0 



5.3.4.7 Sprite Color 

We can also change the color of a one color sprite. Each 
sprite has its own color register. These registers are 
located at V+39 to V+46: 

Register: 39 40 41 42 43 44 45 46 
Sprite :01234567 
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Below is the numbers which correspond to the specific 
colors: 



COLOR 




1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 



GRAY 1 
GRAY 2 



BLACK 
WHITE 
RED 



LIGHT GREEN 
LIGHT BLUE 
GRAY 3 



YELLOW 
ORANGE 
BROWN 



PURPLE 

GREEN 

BLUE 



TURQUOISE 



LIGHT RED 



For example, by using POKE V+39rl4 a sprite becomes light 
blue in color. 



5 .3 .4 .8 Enlarging Sprites 

You can magnify or enlarge a sprite in the horizontal and/or 
a vertical direction. Two registers perform this 
enlargement. One register is for enlargement in the X 
direction, and the other for enlargement in the Y direction. 
Thus every sprite control-register is constructed as 
follows: 



Bit 


: 7 


6 


5 


4 


3 


2 


1 





Sprite 


: 7 


6 


5 


4 


3 


2 


1 





Value 


:128 


64 


32 


16 


8 


4 


2 


1 



If sprite is to be enlarged in X as well as in Y 
direction, the following POKE commands are necessary: 

POKE V+23^1: REM ENLARGES SPRITE IN Y-DIRECTION 
POKE V+29rl: REM ENLARGES SPRITE IN X-DIRECTION 



In order to enlarge sprites and 1 in Y direction, POKE 
V+23,3 (value of 1 + 2) will handle the job. 

Every sprite can be doubled in the X and Y directions. This 
means that one character can be enlarged to 4 times its 
original size. 
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5 •3.4 .9 Background 

The next example shows another feature of the Commodore 64. 
You can choose whether the sprite is placed in front of or 
behind the background. Some nice effects result. When you 
have the helicopter on the screen, type: 

POKE W+27,1 

With this poke, you can direct the sprite to appear in front 
of or behind the background. In order to see the effect, 
bring the cursor to the same line as the sprite. Then you 
simply enter a few characters, just enough to cover the 
sprite with the letters. The letters are considered to be 
background. Try different colors to see the best contrast to 
the sprite. You'll see that the writing appears in front of 
the sprite. Actually you moved the sprite into another 
"level" - namely under the background. Now go to another 
line and type: 

POKE V+27r0 

The sprite will move in front of the text again. The 
register for the background-sprite priority then looks like 
this: 

Bit : b7 b6 b5 b4 b3 b2 bl bO 

Sprite- :76543210 
Priority 



With this register you can change the priority of every 
sprite at will. If the bit is set to 0, it means that the 
sprite appears is in front of the background; set to 1, the 
sprite appears behind the background. By setting and 
clearing of the bits there is the possibility of setting 
several sprites on top of each other and still be able to 
differentiate between .foreground and background. As already 
mentioned, this enables the Commodore 64 to create three- 
dimensional pictures. 



5 .3 •4. 10 Sprite-sprite Collisions 



There is more to say about the overlapping of sprites. There 
is a register in which a collision of different sprites is 
recorded. The contents of this register remains set to 
zero until two or more sprites collide, or until you reset 
this register. Once the sj)rites have overlapped (collided). 
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have collided. 



The value of this register tells us what sprites have 
collided. For example, if we have the following statement: 

CO=PEEK (V+30) 

and the value of CO = 3, then we know that sprites 1 and 2 
have collided. The bit structure of the register is the 
same as the other registers. 

After this PEEK, the register has to be reset by: 
POKE W+30,0 

If you did not clear REG 30, then the registers would stay 
set even if a collision was not taking place. 



5.3.4.11 Sprite-background Collisions 

A collision between a sprite and the background can be 
recorded too. Register 31 serves this purpose. This 
register is treated similar to register 30. The only 
difference is the result of the PEEK. The value informs us 
which sprite(s) has collided with a character. It does not 
tell us which background character it was not its location. 
In order to get this information you have to determine that 
yourself from the other registers and memory locations. 

CO=PEEK (V+31) 

This register has to be cleared after a collision, too. 



5 .3 .4. 12 Multicolor Sprites 

Multicolor sprites add much flavor to the Commodore 64 
graphics capabilities. A multicolor sprite can be made up 
of three colors. The expense for the extra two colors less 
resolution since two bits of the sprite pattern appear as 
one double-wide pixel on the screen. Therefore we have a 4 
X 8 matrix instead of an 8 x 8 one. These two bits contain 
the information about the color. 

We already know that we can transfer 4 pieces of information 
with 2 bits: 00, 01, 10, and 11. When using multicolor 
these 2 bits have the following effects: 

00 - The dot has the background color 

(you don't see a dot) 

01 - The color displayed is in register 37 

10 - The color displayed is in corresponding 

register 38-46 

11 - The color displayed is in register 38 
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This means that a sprite can have its own color and two 
colors that are common to all sprites. 

Maybe you asked yourself why our helicopter looks a little 
strange. We can answer this question now: it was designed 
as a multicolor sprite. Since a multicolor sprite consists 
of fewer dots, you can't get a decent picture in the normal 
sprite mode. To finish this chapter, we want to show you 
the complete program with the multicolor helicopter. It is 
advisable to experiment with the programming of sprites, 
using this program as an example. That way you become 
readily acquainted with the programming technique. 



5 REM 

10 REM SPRITE DEMONSTRATION - HELICOPTER 
15 REM 

20 V=53248: REM START VIDEO CONTROLLER 

30 POKE V+32,15: POKE V+33,14: REM BACKGROUND COLORS 

40 PRINT "<CTRL>-7": REM PRINTING CONTROL AND 7 

50 POKE V+21,3: REM TURN ON SPRITE 1 AND 2 

60 POKE V+28,3: REM SPRITE 1 AND 2 ARE MULTICOLOR 

70 POKE V+39,6: REM COLOR OF SPRITE 1 - BLUE 

80 POKE V+40,2: REM COLOR OF SPRITE 2 - RED 

90 POKE V+37,14:REM MULTICOLOR COLOR 1 - LIGHT BLUE 

100 POKE V+38,0: REM MULTICOLOR COLOR 2 - BLACK 

110 POKE 2040,13: REM SPRITE 1 FROM MEMORY RANGE 832-895 

120 POKE 2041,13: REM SPRITE 2 FROM MEMORY RANGE 832-895 

125 REM THAT MEANS SPRITE 1 AND 2 HAVE THE SAME FORM 

130 FOR 1=0 TO 62: REM LOOP TO READ IN THE DATA 

140 : READ X: REM READING OF THE DOT COMBINATION 

150 : POKE 832+1, X: REM SAVING OF THE DOT COMBINATION 

160 NEXT I: REM END OF LOOP 

170 POKE V+0,24: POKE V+1,50: REM POSITION OF SPRITE 1 
180 POKE V+2,60: POKE V+3,50: REM POSITION OF SPRITE 2 
190 END 

997 REM 

998 REM SPRITE PATTERN FOLLOWS 

999 REM 

1000 DATA 000,000,000 
1010 DATA 000,000,000 
1020 DATA 000,000,000 
1030 DATA 000,000,000 
1040 DATA 000,000,000 
1050 DATA 000,000,000 
1060 DATA 000,000,000 
1070 DATA 003,255,255 
1080 DATA 000,002,000 
1090 DATA 192,170,128 
1100 DATA 194,150,080 
1110 DATA 234,150,080 
1120 DATA 194,170,168 
1130 DATA 192,170,168 
1140 DATA 000,032,128 
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1150 DATA 000,170,160 
1160 DATA 000,000,000 
1170 DATA 000,000,000 
1180 DATA 000,000,000 
1190 DATA 000,000,000 
1200 DATA 000,000,000 

We hope that you use this program as a guide to writing your 
own sprite programs. 
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CHAPTER 6 : Basic From a Different Viewpoint 



6.1 How the BASIC Interpreter Works 

Let's see how the BASIC interpreter works. As you enter text 
into the Commodore 64, the interpreter first checks to see 
if there is a number at the beginning of the text. When it 
sees a number there, it assumes that the text is a program 
line. The interpreter uses this number as a line number and 
assumes that the text following are part of the program 
statements. If the line number does not already exist, then 
the program line is new and is placed into memory in program 
line sequence. If the line number already exists, then this 
program line replaces the previously entered program line. A 
program line number without any text following it merely 
deletes any previously entered program line. 

As the program lines are entered, the interpreter also 
searches for any keywords that are imbedded within the 
text. Keywords are the special reserved words such as: IF, 
GOTO, OPEN, REM, SIN, etc. When it recognized a keyword, the 
interpreter replaces the keyword with a one-byte token. The 
value of the token is a hexadecimal number between $80 and 
$FE. Therefore any character with its high bit set (bit 7) 
is a token for a BASIC keyword. 

As a BASIC program is executed, the interpreter can easily 
find tokens within the text since their high bit is set. 
Using the token, it finds the appropriate BASIC routines in 
ROM which handle the particular function or action. The 
addresses of the routines are found in Chapter 6.4; the 
routines themselves are described in Appendix A. 

In order to take the most advantage of the built in ROM 
routines, you should understand something about the number 
representation of the interpreter. BASIC differentiates 
between three data types: real numbers, integer numbers, and 
strings. Real numbers are in a range from +/- lE-39 to +/- 
1E38. Integer numbers can only take whole-number values 
from -32768 to 32767. Strings are character strings with a 
length from to 255 characters. 

Variables are used to store values. Each variable occupies 
seven bytes of memory. Here we discuss only simple variables 
(non-array variables). 

The first two bytes of each variable contain the variable 
name. The next five bytes contain the value of the variable. 
If the variable represents a floating point number, the 
first byte is the exponent and the next 4 bytes represent 
the mantissa. If the variable represents an integer number, 
only two bytes are used - the high and the low byte of a 16- 
bit binary number. If the variable represents a string, the 
first byte contains the length of the string (0 to 255), and 
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the next two bytes contain the address of the strings. 

The BASIC interpreter differentiates the the different 
variable types by encoding the variable name, or floating 
point variables, the variable name is the first two 
characters of the name. For integer variables, the high 
order bit (bit 7) of both the first and second characters of 
the name are set. For string variables, the high order bit 
of the second character is set. 

For example: 

Variable name : AB AB% AB$ 

Stored as (hex): 41 42 CI C2 41 C2 

The variable table is the place in memory where all simple 
variables are stored. The variable table starts immediately 
following the BASIC program. A pointer located at $2D/2E 
(45/46 in decimal) indicates the start of the variable 
table . 



For example, if you make the 
variable table looks like this: 

A = 10.3 
B% = -23 

C$ = "Commodore 64" 



following assignments, the 



With the monitor you can now look at the memory content: 

002D 03 08 variable table starts at $0803 

0803 41 00 84 24 CC CC CD var. A, floating point value 10.3 

080A C2 80 FF E9 00 00 00 var. B%, integer value -23 

0810 43 80 OC F4 9F 00 00 var. C$, length 12, address $9FF4 



6.2 Using Variables in your Program 

How can the variables or terms be passed from BASIC to a 
machine language program? There is a convenient routine in 
the BASIC interpreter that lets you do this. It evaluates 
any term in a BASIC expression. 

The routine called FRMEVL (formula evaluation) and is 
located at $AD9E. Routine FRMEVL evaluates numeric as well 
as string parameters. 

When FRMEVL is called, it sets the type flag (located at 
$0E, decimal 14). If the type flag is $00 then the 
expression that was evaluated was numeric. If the type flag 
is $FF, then the expression that was evaluated was a string. 

If the expression is numeric, then the result of the 
evalution is stored in the floating point accumulator 1 
(FAC). The FAC is located at memory location $61-$65 
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(decimal 97-101). There is also a second floating point 
accumulator called ARG, that is used for for arithmetic 
operations such as additions, APG is located in memory at 
$69-$6D (decimal 105-109). The result after calling 
routines such as addition is always found in FAC. Also when 
calling functions, the argument is transferred to FAC and 
the result placed there. 

If the expression is a string, then a pointer at $64-$65 
(decimal 100-101) to a string descriptor is set. The string 
descriptor contains the length and the address of the 
evaluated string. Py calling the routine at $B475 you can 
transfer the string length into the accumulator and the 
address into the X-(low byte) and into the Y-(high byte) 
register. 

You might want to keep in mind that all arithmetic takes 
place using floating point numbers. If any operands are 
integer numbers, these are first changed into the floating 
point format, the operations are carried out in floating 
point format, and finally the results are converted back to 
integer format. 

Now let's look at some useful routines of the BASIC 
interpreter that execute arithmetic tasks. 



ADDRESS 


FUNCTION 






$B853 


minus 


FAC = 


ARC - FAC 


$B86A 


plus 


FAC = 


ARC + FAC 


$BA28 


multiplication 


FAC = 


ARC * FAC 


$BB12 


division 


FAC = 


ARC / FAC 


$BF7B 


exponentiation 


FAC = 


ARC to the power of FAC 



The addresses of further routines as well as the memory map 
of zero-page and the operating system are found at the end 
of this chapter. 



6.3 GET more out o£ your BASIC 



6.3 .1 How to Extend BASIC? 

Let's say that you want to tie a machine language routine 
into BASIC. First find the part of the interpreter that 
examines a BASIC statement and then executes it. Here is 
that excerpt from the POM listing: 

A7E1 6C 08 03 JMP ($0308) ; normally points on $A7E4 

A7E4 20 73 00 JSR $0073 ; get next char, from BASIC-text 

A7E7 20 A7 ED JSR $A7ED ; executes statement 

A7EA 4C AE A7 JMP $A7AE ; back to interpreter loop 
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We can easily insert our own routine by changing the vector 
that normally resides at $308/$309. This vector normally 
points to $A7E4, but we can chnage it to point to our own 
machine language routine. 

One common way of extending BASIC is to prefix the new 
commands with a special character, such as an exclamation 
mark. So we can extend BASIC with our own version of a 
PRINT command like this: 

100 1 PRINT 

Our routine first checks for an exclaimation point. If 
found, you can branch to your own routine to handle a new 
PRINT command; otherwise the normal PRINT command is 
performed. A program excerpt could look like this: 



DECODE 


JSR 


$0073 


• CHRGET, next character 




CMP 


#"•" 


• is it our special character? 




BEO 


FOUND 


yes-we handle it 




JMP 


$A7E7 


• no-BASIC handles it 


FOUND 


JSR 


COMMAND 


• execute our own command 




JMP 


$A7AE 


• back to interpreter loop 



The pointer in $0308/$0309 has to be set to point to the 
address of DECODE in the above example when the initializing 
the BASIC extensions. If you want to implement several 
commands, you can build in a routine to differentiate the 
command words that select the various new commands. In the 
following sections, you will find some suggestions for the 
implementation of your own routines. 



6.3.2 HARDCOPY - RENEW - PRINT USING 

Example 1 - Hardcopy Function to 1515 or 1525E printer 

This hardcopy command copies the BASIC text screen content 
to a printer (device number 4) and can be called directly 
with SYS 9*4096. 



? HARDCOPY FUNCTION 



9000 


A9 


04 


LDA 


#4 






9002 


85 


BA 


STA 


FA 




device number of printer 


9004 


A9 


7E 


LDA 


#126 




9006 


85 


B8 


STA 


LF 


7 


logical file number 


9008 


A9 


00 


LDA 


#0 


t 


address low of screen 


900A 


AO 


04 


LDY 


#4 


7 


address high of screen 


900C 


85 


71 


STA 


TEMP 


7 


remeber as pointer 


900E 


84 


72 


STY 


TEMP+1 




9010 


85 


B7 


STA 


FNLEN 


7 


no file name 


9012 


85 


B9 


STA 


SA 


7 


secondary address zero 



101 



9014 


20 


CO 


FF 


JSR 


OPEN 


9017 


A6 


B8 




LDX 


LF 


9019 


20 


C9 


FF 


JSR 


CKOUT 


901C 


A2 


19 




LDX 


#25 


901E 


A9 


OD 


LOOP 


LDA 


#13 


9020 


20 


D2 


FF 


JSR 


BSOUT 


9023 


20 


El 


FF 


JSR 


STOP 


9026 


FO 


2E 




BEQ 


EXIT 


9028 


AO 


00 




LDY 


#0 


902A 


Bl 


71 


LOOP 2 


LDA 


(TEMP) r 


902C 


85 


67 




STA 


STORE 


9d2E 


29 


3F 




AND 


#$3F 


9030 


06 


67 




ASL 


STORE 


9032 


24 


67 




BIT 


STORE 


9034 


10 


02 




BPL 


*+4 


9036 


09 


80 




ORA 


#$80 


9038 


70 


02 




BVS 


*+4 


903A 


09 


40 




ORA 


#$40 


903C 


20 


D2 


FF 


JSR 


BSOUT 


903F 


C8 






INY 




9040 


CO 


28 




cpy 


#40 


9042 


DO 


E6 




BNE 


LOOP 2 


9044 


98 






TYA 




9045 


18 






CLC 




9046 


65 


71 




ADC 


TEMP 


9048 


85 


71 




STA 


TEMP 


904A 


90 


02 




BCC 


*+4 


904C 


E6 


72 




INC 


TEMP+1 


904E 


CA 






DEX 




904F 


DO 


CD 




BNE 


LOOP 


9051 


A9 


OD 




LDA 


#13 


9053 


20 


D2 


FF 


JSR 


BSOUT 


9056 


20 


CC 


FF EXIT 


JSR 


CLRCH 


9059 


A2 


7E 




LDX 


#126 


905B 


4C 


C3 


FF 


JMP 


CLOSE 



; open printer file 

; logical file number of printer 

; printer as output device 

; number of screen lines 

; new line 

; to printer 

; ask stop key 

; pressed, the end 

y;get character from screen 



; screen code 

; change to ASCII code 



; and send to printer 
; line finished? 



; yes, set pointer 
; on next line 



; all lines put out yet? 



; new line 

; output back on screen 

; close print-data and done 



Example 2 - RE-NEW 



The following program can be very useful if you accidentally 
typed NEW. The program finds the end of the program ard 
sets the BASIC-pointers back on the previous value. It will 
work only if no new program lines have been entered and if 
nor new variables have been used. The start address here is 
12*4096+15*256. 



CFOO A5 2B 

CF02 A4 2C 

CF04 85 22 

CF06 84 23 



; RE-NEW FUNCTION 

; GETS BACK CLEARED PROGRAM 

LDA PRGSTRT ; BASIC program-start 

LDY PRGSTRT +1 

STA TEMP ; save as pointer 

STY TEMP +1 
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n x?f\Q 


an 


Uo 




LDx 


■ft Q 

ffO 




UA 


r«Q 
Lo 




ZERO 


INY 






CFOB 




zz 




LDA 


( TEMP ) , Y 


; Looks for end of first line 


PA F\ 
v-.t UU 


DU 


FB 




BNE 


ZERO 


; (zero byte) 


Ur 


PQ 






TMV 




ppi n 


Qft 






TV A 
1 X A 






v^r 1 1 


1 ft 






PT P 






L^r 1 z 


DD 


zz 




a r»p 
AUv^ 


itilYlir 


} auu orrseu 


PPT A 


AH 
AU 


nn 
uu 




LiUx 


ik n 




nxpi a 
io 




ZD 




STA 


\ F.RGSxRT J 


fY; save as pointer 




AC^ 
AD 


0*5 

Zo 




T r\a 
LiUA 


TEMP+1 


Pl?l A 


by 


nn 
uu 




ADC 


#0 


; on next line 




pft 






T MV 
llN X 






PCI r\ 


Q 1 

y 1 


on 

ZD 




oi A 


(PRGSTRT) ,Y 


CFlF 


88 






DEY 




; now contains zero 


ppon 


AO 
AZ 


n'^ 
uo 


AP ATM 


XjUA 


#3 




PP90 




00 
zz 


TnPPTH 
LUJ\tt±KJ 


TNFP 


TEMP 




PPO A 


nn 
uu 


no 
uz 




DMP 


*+4 


; program end equal 


PPO<% 
r ZD 


CjO 


0*^ 

zo 




TMP 


TEMP+1 


; look for three zero-bytes 


PPOft 

Zo 


D J. 


00 

zz 




LiUA 


(TEMP) ,Y 




PPO A 
v^r Zn 


nn 
uu 


PA 
r ft 






AGAIN 




PPOP 

i^r Zv^ 


PA 

UA 






DEX 






r z u 


nn 
uu 


r 




nMP 


TDREIO 




PPO I? 


AR 
AD 


00 

zz 




T r»a 
jjUA 


TEMP 






Di7 


n 

. u z 




anp 
AUL. 


#2 






ft R 

O D 


on 
zu 




CTA 

O X A 


PRGEND 




CF35 


A5 


23 




LDA 


TEMP+1 


; set pointer on program-end 


CF37 


69 


00 




ADC 


#0 




CF39 


85 


2E 




STA 


PRGEND+1 




CF3B 


4C 


63 


A6 


JMP 


CLR 


; CLR and ready. 


Example 


3 - 


- PRINT 


USING 





A very useful routine is the formatted output of numbers, 
often called PRINT USING. This routine works as follows: 
(see address $C900-$C90C) : first a numeric term is placed 
into the floating point accumulator; then it is changed into 
its ASCII string representation; next the formatting is 
carried out using the ASCII string; and finally the 
formatted string is output. 

To use the routine, you use the following call: 
SYS (AD) ,X 

Here AD is the start address of the print using routine and 
X the variable or numeric term to be printed. The parameters 
for the term are set with POKEs: 

POKE 51612, X = whole number, 1 = number with decimal-point 
POKE 51613, L 0-10, complete length - 1 
POKE 51614, N number of digits after the decimal point 
POKE 51615, ASC(" ") fill-character before the number 
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POKE 51549, ASC(" ") leading character before the number 

The default values are: decimal number, length 10 (9+1), 2 
decimal digits, blank character as leading character and 
filler. 



SYS(51456) rlOO leads to the following printout: 
100.00 

With POKE 51613,3 : POKE 51615 ,ASC( "*" ) : POKE 51549ASC("$") 
the output of the example above looks like this: 

**$100.000 



; PRINT USING 



C900 


20 


8A 


AD 




JSR 


FRMNUM 


; get numeric term 


C903 


20 


BB 


BD 




JSR 


ASCII 


; change to ASCII 

; beginning at $100 


C905 


20 


OD 


C9 




JSR 


USING 


; out new routine 


C909 


20 


IE 


AB 




JSR 


OUT 


; string output 


C90C 


60 








RTS 




; return to caller 


C90D 


A9 


45 




USING 


LDA 


#'E 




C90F 


20 


8E 


C9 




JSR 


CHECK 


; checks on exp. format 


C912 


BO 


59 






BCS 


SETPTR 




C9 14 


AD 


9C 


C9 




LDA 


DECINT ; 


flag for dec/integer 


C9 17 


FO 


59 






BEQ 


INTEGER 




C919 


AD 


02 


01 




LDA 


$102 




C9 IC 


DO 


OB 






BNE 


LI 




C9 IE 


AC 


9D 


C9 




LDY 


LENGTH 


; complete length — 1 


C921 


A9 


30 






LDA 


# ' 




C9 23 


99 


02 


01 


L2 


STA 


$102 ,Y 


; fill buffer w/ zeros 


C9 26 


88 








DEY 






C9 27 


DO 


FA 






BNE 


L2 




C929 


A9 


2E 




LI 


LDA 






C92B 


20 


8E 


C9 




JSR 


CHECK 




C92E 


A8 








TAY 






C92F 


90 


02 






BCC 


* + 4 




C931 


AO 


30 






LDY 


#'0 




C933 


A9 


00 






LDA 


#0 




C935 


20 


8E 


C9 




JSR 


CHECK 




C9 38 


98 








TYA 






C939 


9D 


00 


01 




STA 


$100, X 




C9 3C 


A9 


2E 






LDA 






C93E 


20 


8E 


C9 




JSR 


CHECK 




C941 


AC 


9E 


C9 




LDY 


DECLEN 


; # of decimal digits 


C944 


E8 






L3 


INX 






C945 


88 








DEY 






C946 


DO 


FC 






BNE 


L3 




C948 


EC 


9D 


C9 


L8 


CPX 


LENGTH 




C94B 


BO 


20 






BCS 


SETPTR 




C94D 


AC 


9D 


C9 




LDY 


LENGTH 




C950 


A9 


00 






LDA 


#0 




C952 


99 


01 


01 




STA 


$101, Y 
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C955 


BD 


00 


01 


L6 


LDA 


$100rX 


C958 


C9 


20 






CMP 


#' 


C95A 


DO 


02 






BNE 


L5 


C95C 


A9 


20 






LDA 


# ' 


C95E 


99 


00 


01 


L5 


STA 


$100, Y 


C961 


CA 








DEX 




C962 


10 


06 






BPL 


L4 


C964 


AD 


9F 


C9 




LDA 


FILLER 


C967 


88 








DEY 




C968 


10 


F4 






BPL 


L5 


C96A 


88 






L4 


DEY 




C96B 


10 


E8 






BPL 


L6 


C96D 


A9 


00 




SETPTR 


LDA 


#0 


C96F 


AO 


01 






LDY 


#1 


C971 


60 








RTS 




C972 


A9 


00 




INTEGER 


LDA 


#0 


C974 


20 


8E 


C9 




JSR 


CHECK 


C977 


90 


F4 






BCC 


SETPTR 


C979 


8A 








TXA 




C97A 


A8 








TAY 




C97B 


AD 


02 


01 




LDA 


$102 


C97E 


FO 


09 






BEQ 


L7 


C980 


A9 


2E 






LDA 


#• . 


C982 


20 


8E 


C9 




JSR 


CHECK 


C985 


90 


02 






BCC 


L7 


C987 


8A 








TXA 




C988 


A8 








TAY 




C989 


98 






L7 


TYA 




C98A 


AA 








TAX 




C98B 


CA 








DEX 




C98C 


10 


BA 






BPL 


L8 


C98E 


A2 


00 




CHECK 


LDX 


#0 


C990 


DD 


00 


01 


L9 


CMP 


$100rX 


C993 


FO 


06 






BEQ 


LIO 


C995 


E8 








I NX 




C996 


EO 


OC 






CPX 


#12 


C998 


DO 


F6 






BNE 


L9 


C99A 


18 








CLC 




C99B 


60 






LIO 


RTS 




C99C 


01 






DECINT 


BYT 


1 


C99D 


09 






LENGTH 


BYT 


9 


C99E 


02 






DECLEN 


BYT 


2 


C99F 


20 






FILLER 


BYT 


1 1 


C9A0 








LEADING 


EQU 


L5-1 



; leading char, blank 



; set pointer on buffer 



;decimal 
; length 9 

;# of decimal digits 
; fill character 
; leading character 



6.3.3 Self-developed mathematical routines 

If we have the need for mathematical routines, ones that the 
interpreter doesn't offer, quite often it is worthwhile to 
write a subprogram in machine language yoursellE. For 
functions with one argument, the USR function would be best. 
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How does the USR function work? The USR function, just like 
all other function-calls of the interpreter, can serve like 
the SIN function in terms for the calculation of variables 
or it can be in a PRINT statement. When calling the USR 
function, you must place the starting address of the routine 
in memory locations $311-$312 (decimal 785-786). You can 
POKE these locations with the address of your routine. 
When calling the USR function, the value of the argument (it 
can be any complicated term) is passed in floating point 
accumulator 1. Now the function can be calculated in your 
machine language routine. You place the result of the 
function back into the FAC issue an RTS instruction to 
transfer control and the value back to BASIC. 

Now let's look at some examples of how to write your own 
functions. 



6.3.4 SQR, SUMr and PROD Functions 

First is a routine for calculating a square root. Though 
the BASIC interpreter already provides such a routine, this 
one is faster and more precise. As a starting point, we take 
the argument and halve the exponent which already 
constitutes a good estimation of the square root value. The 
algorithm is x(n+l) = (x(n)+a/x(n) ) / 2, with 'a* being the 
argument and •x(n)' and *x(n+l)' being the old and new 



estimate-value. 


Through experimenting it becomes clear that 


after 


• 4 


iterations 


the result 


doesn't change anymore. 


C800 


20 


2B 


BC 




JSR 


SIGN 


;check signs 


C803 


FO 


34 






BEQ 


END 


;value=0, ready 


C805 


10 


03 






BPL 


OK 


?positive, then ok 


C807 


4C 


48 


B2 




JMP 


ILL 


;negative, 'illegal quantity' 


C80A 


20 


C7 


BB 


OK 


JSR 


FACA4 


;transfer FAC to accu#4 


C80D 


A5 


61 






LDA 


EXP 




C80F 


38 








SEC 






C810 


E9 


81 






SBC 


#$81 


;normalize exponent 


C812 


08 








PHP 






C813 


4A 








LSR 


A 


;halve exponent 


C814 


18 








CLC 






C915 


69 


01 






ADC 


#1 




C817 


28 








PLP 






C818 


90 


02 






BCC 


SI 




C81A 


69 


7F 






ADC 


#$7F 


; restore exponent 


C81C 


85 


61 




SI 


STA 


EXP 




C81E 


A9 


04 






LDA 


#4 


;4 iterations 


C820 


85 


67 






STA 


COUNT 




C8 22 


20 


CA 


BB 


ITER 


JSR 


FACA3 


;FAC to accu#3 


C825 


A9 


5C 






LDA 


#$5C 




C8 27 


AO 


00 






LDY 


#$00 


;pointer on accu#4 


C829 


20 


OF 


BB 




JSR 


DIV 


;divide by FAC 


C82C 


A9 


57 






LDA 


#$57 




C82E 


AO 


00 






LDY 


#$00 


;pointer on accu#3 
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C830 20 67 B8 

C833 C6 61 

C835 C6 67 

C837 DO E9 
C839 60 



JSR PLUS ;add to FAC 

DEC EXP ;FAC/2( exponent - 1) 

DEC COUNT ; lower counter 

BNE ITER ;another iteration 

END RTS ; ready 



Before calling this USR function we have to tell the 
interpreter first where our USR function starts. For this, 
the low-byte of the address is poked to $311 (decimal 78"^) 
and the high-byte is poked to $312 (786). For our function 
this would look like this: 

POKE 785r0 : POKE 786, 12*16+8 

Now to call the routine you can use a statement such as: 
PRINT USR(A). If you compare the execution time this routine 
with built in the SQR routine of the interpreter, it takes 
just 12 milliseconds which is about 4 times as fast as SQR 
which take about 52 milliseconds. 

Now let's look at a little more complicated example. Often 
you're confronted with the task of adding up arrays of 
numbers, for example if you have to determine the mean or 
any statistical calculations. Let's assume that the data is 
available in an array (dimensioned variable). 

10 DIM A(IOO) 

100 S = 0:REM CALCULATION OR READ IN OF DATA 
110 FOR I = TO 1000 : S = S + A(I) : NEXT 
120 PRINT S 

If we substitute a USR function for BASIC lines 100 and 110. 
we get the statement: 

100 S = USR(A) 



Here parameter A stands for the array name. As we will see 
later on, the product of the array elements can be 
calculated by changing two machine commands. 



033C 


20 


8D AD 


JSR 


NUMTEST 


;variable numeric? 


033F 


A6 


2F 


LDX 


ARRTAB 




0341 


A5 


30 


LDA 


ARRTAB+1 


;ptr to array-list. 


0343 


86 


5F S3 


STX 


TEMP 


0345 


85 


60 


STA 


TEMP+1 


;running pointer 


0347 


C5 


32 


CMP 


ARREND+1 


0349 


DO 


04 


BNE 


SI 




034B 


E4 


31 


CPX 


ARREND 


;end of array listing 


034D 


FO 


ID 


BEQ 


NOTFOUND 


034F 


AO 


00 SI 


LDY 


#0 




0351 


Bl 


5F 


LDA 


(TEMP) ,Y 


; first letter of name 


0353 


C8 




INY 






0354 


C5 


45 


CMP 


VARNAM 


;comp. w/searched name 


0356 


DO 


06 


BNE 


S2 


;no, check next array 
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0358 A5 
035A Dl 
035C FO 
035E C8 
035F Bl 

0361 18 

0362 65 

0364 AA 

0365 C8 

0366 Bl 
0368 65 
036A 90 
036C A2 
036E 86 
0370 A9 
0372 4C 

0375 C8 

0376 Bl 

0378 18 

0379 65 
037B 85 
037D C8 
037E Bl 

0380 65 
0382 85 

0384 C8 

0385 Bl 
0387 20 
038A 85 
038C 84 
038E 24 
0390 30 
0392 20 

0395 18 

0396 90 
0398 20 
039B 18 
039C A5 
039E 69 
03A0 85 
03A2 90 
03A4 E6 
03A6 A4 
3A8 C5 
03AE 90 
03B0 60 
03B1 20 
03B4 20 
03B7 18 
03B8 A5 
03BA 69 
03BC 85 
03BE 90 
03C0 E6 
03C2 C5 



S2 



NOTFOUND 



FOUND 



46 
5F 
17 

5F 

5F 



5F 
60 
D7 
E2 
22 
03 

45 A4 

5F 

5F 
24 

5F 
60 
25 

5F 

96 Bl 

5F 

60 

OE 

IF 

A2 BB 
04 

67 B8 S5 

5F LOOP 

05 

5F 

02 

60 

60 S4 

24 

E8 

READY 
D5 03 INTEGER 
OC BC S6 

5F 
02 
5F 
02 
60 

24 S7 



LDA 

CMP 

BEQ 

INY 

LDA 

CLC 

ADC 

TAX 

INY 

LDA 

ADC 

BCC 

LDX 

STX 

LDA 

JMP 

INY 

LDA 

CLC 

ADC 

PTA 

INY 

LDA 

ADC 

STA 

INY 

LDA 

JSR 

STA 

STY 

BIT 

BMI 

JSR 

CLC 

BCC 

JSR 

CLC 

LDA 

ADC 

STA 

BCC 

INC 

LDY 

CMP 

BCC 

RTS 

JSR 

JSR 

CLC 

LDA 

ADC 

STA 

BCC 

INC 

CMP 



VARNAM+1 ; second letter 
(TEMP),Y ; compare 
FOUND ? found 

(TEMP) ,Y 

TEMP ;+ offset of next array 



(TEMP) ,Y 

TEMP+1 

S3 

#<TAB 

$22 ;ptr. to error message 

#>TAB 

ERROUT ; output of error message 

(TEMP) ,Y 

TEMP 
STORE 

(TEMP) ,Y 

TEMP+1 

STORE+1 

(TEMP),Y ;number of elements 



SETARR 

TEMP 

TEMP+1 

INTFLG 

INTEGER 

MEMACl 

LOOP 
MEMPLUS 

TEMP 
#5 

TEMP 
S4 

TEMP+1 
TEMP+1 
STORE 
S5 

INTAKK 
A1T0A2 



;ptr. 1st array elem. 

;pointer to temp 
?check integer flag 

; element in FAC 

;jump in loop 
;variable plus FAC 



;ptr to next element 



;end of array? 
;yes, ready 

; integer variable to FAC 
;FAC to ARG 



TEMP 

#2 ;ptr to next array elem. 

TEMP 

S7 

TEMP+1 

STORE ;end of array range? 
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03C4 
03C6 
03C8 
03CA 
03CC 
03CF 
03D2 
03D5 
03D7 
03D9 
03DA 
03DB 
03DD 
03DE 
03DF 
3E2 
03E5 
03F0 



90 
A5 
C5 
BO 
20 
20 
4C 
AO 
Bl 
AA 
C8 
Bl 
A8 
8A 
4C 
41 
41 
C4 



91 B3 

52 52 TAB 

59 20 4F 54 



00 
5F 



5F 



D5 03 S8 
6F B8 
B4 03 



06 
60 
25 
E4 



INTAKK 



20 46 50 
PYT 



BCC 
LDA 
CMP 
BCS 
JSR 
JSR 
JMP 
LDY 
LDA 
TAX 
INY 
LDA 
TAY 
TXA 
JMP 
ASC 



S8 

TEMP+1 

STORE+1 

READY 

INTAKK ; integer var to FAC 

ACPLUS ;FAC +ARG 

S6 

#0 

(TEMP) ,Y 



INTFLOAT ;to floating comma 
'ARRAY NOT FOUN' 
55 4F 
'D'+$80 



(TEMP) ,Y 



The program can process arrays with real numbers as well as 
integer arrays. If an array can't be found, the message 
ARRAY NOT FOUND is output. 

Since the logic for calculating the array elements is the 
same, you can obtain a product function by substituting the 
calls for addition with the multiplication routine. For 
this at $0398 substitute 20 28 BA and at $03CF substitute 20 
2B BA. 

In order to use our routine, which is in the tape buffer 
this time, we have to poke the start address again: 

POKE 785,3*16+12 : POKE 786,3 

For a comparison, calculate the sum with the BASIC loop once 
and then with our routine - the time difference is immense! 



6 .3 .5 Changing to Different Data Formats 

If more than one parameter is to be transferred, the USR 
function is not suitable anymore. Here an extended variant 
of the SYS command is most suitable. Normally the SYS 
command only carries out the machine program starting from 
this address and transfers no further parameters. The above 
routine FRMEVL evaluates the parameter following the SYSxxx 
and transfers the value to the floating point accumulator. 

If separated by a comma or parenthesis, any number of 
parameters can be transferred. For the formula evaluation 
routine there are several more routine addresses and sub 
routines available which check, for instance, for a comma or 
evaluate parameters in parenthesis. The type of variable 
or numeric string can be checked, too. For numeric 
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variables, there is an additional range-check possible. The 
most important routines are summarized below. For further 
details, please check chapter 6.4 for the ROM listings. 



ADDRESS 



DESCRIPTION 



ADS A 
AD8D 
AD8F 
AD9E 
AEFl 
AEF7 
AEFA 
B79E 
0073 



evaluate argument and check on numeric 

check on numeric 

check on string 

argument evaluation, any term 

evaluate argument in parenthesis 

checks on parenthesis closed 

checks on parenthesis open 

checks on comma 

gets next character from BASIC text 



In using these routines, if a value is out of range an error 
message ILLEGAL QUANTITY is issued. If a variable type does 
not coincide with the intended type an error message TYPE 
MISMATCH is issued. 

You can convert to different formats using the following 
routines: 

ADDRESS DESCRIPTION 

BIBF changes FAC to integer 

B395 changes 16-bit integer-number in A/X to running-coi 

B3A2 changes byte in Y to floating comma 

BC9B changes FAC to 16-bit number 

BCF3 changes digit string to floating-comma 

BDDD changes FAC in digit-string 

Now let's look at an example of a SYS routine with parameter 
passing. Say you want to output from BASIC to a certain 
position on the screen. Here's an easier way of doing this 
with a short machine language routine. 



The call has the following syntax: 

SYS PR, column, line, printlist 

Here PR is the starting address of the routine, line and 
column are the cursor positions at which the variables or 
terms of the printlist are to be output. 

COOO 20 FD AE JSR CKCOM ; checks comma 

C003 20 9E B7 JSR GETBYT ; gets column value to X 

CO 06 8 A TXA 

C007 48 PHA ; remember column-number 
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coos 20 FD AE 
COOB 20 9E B7 
COOE 68 



JSR CKCOM 
JSR GETBYT 
PLA 



checks on comma 
gets line value 



COOF A8 
COlO 18 



TAY 
CLC 



column value to Y 



coil 20 FO FF 
CO 14 20 FD AE 
C017 4C A4 AA 



JSR CURSOR 
JSR CKCOM 
JMP PRINT 



sets cursor 

checks on comma 

continue with PRINT command 



If you assign start address $C000 of the routine to the 
variable PR at the beginning of the program, you can output 
the text "example" with the following command, starting with 
the 24th column in line 20: 

10 PR = 12*4096 

100 SYS PR, 24, 20, "EXAMPLE" 



6.4 Routines Of The BASIC Interpreter 

The BASIC interpreter of the Commodore 64 is almost 
identical to VIC-20 interpreter. The major difference is in 
their positions in memory. The conversion of an address for 
the Commodore 64 into the corresponding address for the VIC- 
20 happens as follows: 

At addresses from $A000 to $BFFF you simply add $2000, $A860 
becomes the address $C860 in the VIC-20. At addresses from 
$E000 to $E73A, 3 is subtracted from the Commodore 64 
address. $E30E becomes address $E30B at the VIC-20. 

Appendix A contains the full disassembled listing of the 
Commodore 64 BASIC and kernal routines. 



ADDRESS 


DESCRIPTION 




AOOO 


start vector 




A002 


NMI vector 




A004 


' cbmbasic' 




AOOC 


addresses of the BASIC commands minus 


1 


A052 


addresses of the BASIC functions 




A080 


hierarchy-codes and addresses of the 


BASIC operators 


A09E 


list of BASIC command words 


A19E 


BASIC error-messages 




A364 


messages of the BASIC interpreter 




A38A 


stack search-routine for FOR-NEXT and 


GOSUB 


A3B8 


block-shifting routine 




A3FB 


checks on space in stack 




A408 


makes space in memory 




A435 


output of 'out of memory' 




A437 


output of error message 




A469 


break vector 
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A474 


ready vector 


A480 


input waiting-loop 


A49C 


clear and inserting program lines 


A533 


tie BASIC prog rain- lines anew 


A560 


gets a line into input-buffer 


A571 


output of 'string too long' 


A579 


change of a line into interpreter-code 


A613 


look for start address of a BASIC line 


A642 


BAS I C-command NEW 


A6 5E 


BASI C-command CLP 


A68E 


set program-pointer to BASIC start 


A69C 


BASI C-command LIST 


A717 


change interpreter-code to command word 


A742 


BASI C-command FOP 


A7AE 


interpreter loopr carries out BASIC commands 


A7ED 


carries out BASIC-command 


A81D 


BASI C-command RESTOPE 


A8 2C 


interrupts program at pressed stop-key 


A82F 


BASIC-command STOP 


A831 


BASIC-command END 


A857 


BASIC-command CONTINUED 


A871 


BASIC-command PUN 


A883 


BASIC-command GOSUB 


A8A0 


BASIC-command GOTO 


A8F8 


BASIC-command RETURN 


A8F8 


BASIC-command DATA 


A906 


looks for next statement 


A909 


looks for next line 


A928 


BASIC-command IF 


A9 3B 


BASIC-command REM 


A94B 


BASIC-command ON 


A96B 


looks for address of a BASIC line 


A9A5 


BASIC-command LET 


AA80 


BASIC— commano rKiNiff 


AA86 


BASIC-command cmd 


AAAO 


BASIC-command PRINT 


ABIE 


output string 


AB3E 


output empty-character ( or cursor right) 


AB4D 


error handling for INPUT 


AB7B 


BASIC-command GET 


ABAS 


BASIC-command INPUT# 


ABBF 


BASIC-command INPUT 


AC06 


BASIC-command READ 


ACFC 


' ?extra ignored' and '?redo from start' 


ADID 


BASIC-command NEXT 


AD8A 


FRMNUM gets term and checks on numeric 


AD8D 


checks on numeric 


AD8F 


checks on string 


AD99 


output of 'type mismatch' 


AD9E 


FRMEVL gets and evaluates any term 


AE83 


get arithmetic term 


AEA8 


r ioa u 1 riy- poin t. conoi-cinu iojit pj. 


AED4 


BASIC-command NOT 


AEFl 


gets term in parenthesis 


AEF7 


checks on 'parenthesis closed' 
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AEFA 


checks on 'parenthesis open' 




AEFD 


checks on 'comma' 




AEFF 


checks on characters in accumulator 




AF08 


output of 'syntax error' 




AF28 


gets variable 




AFE6 


BASI C-command OR 




AFE9 


BAS I C-command AND 




BO 16 


comparison-operations 




B081 


BASIC-command DIM 




B113 


checks for letter 




B194 


calculates pointer to first array-element 




BIAS 


floating-point constant -32768 




BIAA 


change FAC to integer 




B245 


output of 'bad subscript' 




B248 


output of 'illegal quantity' 




B34C 


calculates array-size 




B37D 


BASIC- function FPE 




B39E 


BASIC-function POS 




B3A6 


check on direct-mode 




B3AB 


output of 'illegal direct' 
output of 'undef'd function' 




B3AE 




B3B3 


BASIC-command DEF 




B3E1 


check FN-syntax 




B3F4 


BASIC-function FN 




B465 


BASIC-function STP$ 




B475 


string administration, calculate pointer on 


string 


B487 


establish string 




B526 


garbage collection, remove unused strings 




B63D 


string connection '+' 




B6A3 


string administration FRESTR 




B6EC 


BASIC-function CHRS 




B700 


BASIC-function LEFT$ 




B7 2C 


BASIC-function RIGHTS 




B737 


BASIC-function MID$ 




B77C 


BASIC-function LEN 




B782 


get string parameter 




B78B 


BASIC-function ASC 




B79B 


gets byte-term (0 to 255) 




B7AD 


BASIC-function VAL 




B7EB 


gets address (0 to 65535) and byte-value (0 


to 255) 


B7F7 


change FAC to address-format (range to 65535) 


B80D 


BASIC-function PEEK 




B824 


BASIC-command POKE 




B82D 


BASIC-command WAIT 




B849 


FAC = FAC +0.5 




B850 


minus FAC = constant (A/Y) - FAC 




B853 


minus FAC = ARG - FAC 




B867 


plus FAC = constant (A/Y) - FAC 




B86A 


plus FAC = ARG + FAC 




B97E 


output 'overflow' 




B9BC 


floating point constant for LOG 




B9EA 


BASIC-function LOG 




BA28 


multiplication FAC = constant (A/Y) * FAC 




BA2B 


multiplication FAC = ARG * FAC 




BA8C 


ARG = constant (A/Y) 
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BAB 2 


PAf = PAP * in 








f loat inQ—point constant 10 






tSAr Ej 


PAP = PAC/10 






DDUr 


PAP = ronstant (A/Y) / FAC 






nril z 


PAP = ARG/FAC 






BB8A 


rMii-niii- o"F 'division bv zoiro' 






BBA2 


PAP = r^on CI ^ p n i" fA/Y^ 






mar* A 










appii*'^ = FAC 






DtSUU 


v^^fiahle = PAC 

V d i> X CIJ^ X w 1. XaV' 






DDT ^ 


PAC = ARG 








ARG = PAC 






BCIB 


v/^iir^H PAP 








get signs of FAC 








BASIC-f unction SGN 






BLDo 


RAQTP— fiinp-h 1 on ARS 






BC5B 


/-»#^TYir\a r>r»n chant- fA/Y^ with PAC 






BC9B 


change from FAC to integer 






BCCC 


BASIC-function INT 








change ASCII to floating-point 




-point to ASC 




floating-point constants for floating 


BDC2 


output of line-number at error message 




output of positive integer-number 


(0 


to 65535) 


BDDD 


change FAC to ASCII-format 






BFl 1 


floating-point constant 0.5 






br ID 


binary numbers for change of FAC 


to ASCII 


or / JL 


BASIC-function SQR 






BF78 


FAC = constant (A/Y) to the power 


of 


FAC 


tit! 1 D 


FAC = ARG to the power of FAC 






or or 


floating point constant for EXP 






or CjL' 


BASIC-function EXP 








series 1 polynomial calculation 








series 2 polynomial calculation 






EiU O U 


floating point constant for RND 






tiUy / 


BASIC-function RND 






Ei±U / 


output of 'break' 








BSOUT output of a character 






Ei 1 1 z 


BASIN receive a character 






Ell J. O 


CKOUT establish output-device 






Et J. X E« 


CHKIN establish input-device 






Pi 

E'i Z *i 


GETIN get a character 






Pi 92i 
Ei 1 


BASIC-comand SYS 






Pi 


BASI C-command SAVE 






p 1 <i R 


BASIC-command VERIFY 






Pi fip 

EjX D O 


BASI C-command LOAD 






P 1 RP 
Ej J. 13 Ej 


BASIC-command OPEN 






Pi n 


BASIC-command CLOSE 






Pi T\A 
EjI U*t 


get parameters for LOAD and SAVE 






E219 


get parameter for OPEN 






Ej Z O *4 


BASIC-function COS 






po R 


BASIC-function SIN 






E2B4 


BASIC-function TAN 






E2E0 


floating-point constants for SIN 


and 


COS 


E30E 


BASIC-function ATN 






E33E 


floating-point constants for ATN 
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E37B BASIC NMI jump-in 

E394 BASIC cold-start 

E3A2 copy of the CHRGET-routine 

E3BA start-value for the RND-function 

E3BF initialize RAM for BASIC 

E447 table of BASIC-vectors 

E453 . load BASIC-vectors 
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6.5 Low Memory Usage 



Hex-address 


Decimal 


00 





01 


1 


02 


2 


3 — 04 


3-4 


Ud — Uo 


5 — 6 


u / 


1 


no 

Uo 


Q 

o 


uy 


y 


UA 


iU 


UB 


11 


nr" 
UL 


Iz 


UD 


lo 


OE 


14 


Ur 


1 D 




1 


1 1 


1 / 




lo 




1 Q 

1 y 


14— Id 


on o 1 
ZU — zl 


it) 




zz 


1 *7_ 1 Q 

i / — ±o 


Ol— O >1 
Z J — Z4 


ly— zi 


ZD— JO 


Zifi — ZD 


j4— O / 


Z D— Zr\ 


JO — 4Z 




A7 — A A 
4 J — 4h 


Z Lr- ZCi 


4 D— 4D 


Zr — jU 


A7 — A Q 
4 / — 4o 


J 1 — jZ 


A Q— i^n 
4y— DU 


J J— J4 


C 1 _ C O 
Dl — DZ 


JD— OD 


D J — D4 


O / — JO 


DD— Do 


O Q_ Q A 

jy— OA 


D / — Do 


OD— jl- 


RQ — AH 
Dy — DU 


n— p 


1 — 

D JL D Z 


p— An 


^'3 — A A 


A1 — AO 
*H — *t Z 


^ R— c/; 
n D— DO 


*i J— ^ ft 


^7 — 
D / — Do 


A R— A A 
4 D— fJD 


^Q — 7n 
Dy— / U 


4 / — 4o 


7 1 7 O 

/I— / Z 


y1 Q /A 

4y— 4A 


7 O HA 

1 J— / 4 


An— AP 


7R— 7^; 

/ D— / D 


An 
4 U 


7 7 


A P— A P 

4 Cj— 4 r 


7Q — 7Q 

/o— / y 


J U DO 


ftn— ft "3 

O U O J 


In A 


Q A 
o ft 


3 D— Do 


o D — oD 


R7— 


o / — y 1 


5C-60 


92-96 


61-65 


97-101 


66 


102 


67 


103 


68 


104 



Description 

data-direction register for processor port 

processor register 

unused 

vector floating point to fixed 
vector fixed to floating point 
search character 
quote flag 

memory for column at TAB command 
load=0, verify=l, interpreter-flag 
pointer input-buffer, # of dimensions 
flag for DIM 

type-flag $00=numeric, $FF = string 
flag for integer=$80, floating = $00 
high-comma flag at LIST 
flag for FN 

flag for INPUT $00, GET $40, READ $98 

flag for TAN 

active I/O-device 

integer-address, i.e. line number 

pointer to string stack 

pointer to string used last 

string stack 

pointer for various uses 
register for func eval. and arith. 
pointer BASIC program-start 
pointer to start of the variables 
pointer to start of the arrays 
pointer to end of the arrays 
pointer to begin of the strings 
aid-pointer for strings 
pointer to BASIC-PAM end 
present BASIC-linenumber 
previous BASIC-linenumber 
pointer to next BASIC stmt for CONT 
present linenumber for DATA 
pointer to next DATA-element 
pointer to origin of input 
variable name 
variable address 
variable-pointer for FOR/NEXT 
intermediate memory for program ptr 
mask for comparison operations 
pointer for FN 
string descriptor 
constant $4C JMP for functions 
jump vector for functions 
register for arithmetic, accum#3 
register for arithmetic, accum#4 
floating-point accum#l, FAC 
sign of FAC 

counter for polynomial evaluation 
round -off byte for FAC 
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Hexaddress 


Decimal 


69-6D 


105-109 


6E 


110 


6F 


111 


70 


112 


71-72 


113-114 


73-8A 


115-138 


7A-7B 


122-123 


8B-8F 


139-143 


90 


144 


91 


145 


92 


146 


93 


147 


94 


148 


95 


149 


96 


150 


97 


151 


98 


152 


99 


153 


9A 


154 


9B 


155 


9C 


156 


9D 


157 


9E 


158 


9F 


159 


A0-A2 


160-162 


A3 


163 


A4 


164 


A5 


165 


A6 


166 


A7-AB 


167-171 


AC-AD 


172-173 


AE-AF 


174-175 


BO-Bl 


176-177 


B2-B3 


178-179 


B4 


180 


B5 


181 


B6 


182 


B7 


183 


B8 


184 


B9 


185 


BA 


186 


BB-BC 


187-188 


BD 


189 


BE 


190 


BF 


191 


CO 


192 


C1-C2 


193-194 


C3-C4 


195-196 


C5 


197 


C6 


198 


C7 


199 


C8 


200 


C9 


201 


CA 


202 



Description 

floating-point accum#2,ARG 
sign of ARG 

comparison of signs of FAC and ARG 

round-off byte for FAC 

pointer for cassette buffer 

CHRGET gets char, from BASIC text 

program pointer 

last RND-value 

status word ST 

flag for stop-key 

time-constant for tape 

flag for LOAD $00 or VERIFY $01 

flag at lEC-output 

output-buffer for lEC-bus 

receive flag for EOT from tape 

intermediate-memory for register 

number of open files 

active input-device 

active output-device 

parity for tape 

receive flag for byte 

flag direct-mode $80, program $00 

tape-pass 1 check-sum 

tape-pass 2 error-correction 

time 

bit-counter for serial output 

counter for tape 

write counter for tape 

pointer in tape buffer 

work-memory for tape in-/output 

ptr for tape-buffer and scrolling 

ptr on program end at LOAD/SAVE 

time-constants for tape-timing 

pointer on tape-buffer 

bit-counter for tape 

next bit for RS 232 

buffer for byte to be output 

length of file name 

logical file number 

secondary address 

device number 

pointer to file name 

work-memory serial I/O 

pass counter for tape 

buffer for serial output 

flag for tape-drive 

start address for I/O 

end address for I/O 

key pressed last 

number of pressed keys 

flag for RVS-mode 

line end for input 

cursor line for input 

cursor column for input 



117 



Hexaddress Decimal 



Description 



CB 




o r» o 




rNVAce^H Lr o T7 ni^ Wp>\7 — A 
pi.eSSeCi Ncyf IHJ js.c:y u** 


CC 




"^rx A 
zU4 




■Plan -For* hi inWino r'HT^^O'T 


CD 




on R 




r«r»iint-<ar- "FriT" Oil t^cioT — hl ink illQ 


CE 




on 

ZU D 




r-ha vsr-f-^ar* under* the cursor 


r* X? 
Lr 




007 
z u / 




flag for cursor— blinking 


DU 




onp 

ZU o 




flag for input of keyboard or screen 


m — 


no 


Z U 17 


2 10 


ptr to start of actual screen line 


D3 




oil 
zl 1 






D4 




10 
ZIZ 




•Flan Fr»r* miT'Qor" 


D5 




zi J 




1 £ir»n4-V\ i^'F cnyffk^n 1 i no 


Do 




1 A 
Z J.4 




^ U I. O V^J. X X 1 1 c 


ul 




01 R 
Z 1 D 




\7ay*ir>iiei riiiKDOSes 

veil* XV^UO ^UXJj/wO^^ 


D8 




216 




number of inserts 


D9- 


F2 


217- 


242 


MSB of screen-line beginnings 


F3- 


F4 


243- 


244 


pointer to color-RAM 


F5- 


F6 


245- 


246 


pointer to keyboard decoding table 


F7- 


FB 


247- 


248 


pointer to RS-232 input buffer 


F9- 


FA 


249- 


250 


pointer to RS-232 output buffer 



******************************* 


OOFF- 


OlOA 


255- 


266 


buffer floating point, to Abv^ii 


0100- 


013E 


256- 


318 


memory for correction at tape- input 


0100- 


OlFF 


256- 


511 


processor stack 


0200- 


0258 


512- 


600 


BASIC input-buffer 


0259- 


0262 


601- 


610 


table of logical file-numbers 


0263- 


026C 


611- 


620 


table of device-numbers 


026D- 


0276 


621- 


con 


L.aDJ.e Ox scuuiivicii. y ciuvjxcido 


0277- 


0280 


631- 


640 


key-board buffer 


0281- 


0282 


641- 


642 


start of BASIC-RAM 


0283- 


0284 


643- 


644 


end of BASIC-RAM 


0285 




645 




time-out flag for serial lEC-bus 


0286 




646 




present color 


0287 




647 




color under cursor 


0288 




648 




high-byte video-RAM 


0289 




649 




length of key-board buffer 


028A 




650 




flag for 'repeat function' for all keys 


028B 




651 




counter for repeat-speed 


028C 




652 




counter for repeat-delay 


028D 




653 




flag for shift and CTRL 


028E 




654 




shift flag 


028F- 


-0290 


655- 


-656 


pointer for key-board decoding 


0291 




657 




flag for shift/Commodore blocked 


0292 




658 




flag for scrolling 


0293 




659 




RS-232 control-word 


0294 




660 




RS-232 command-word 


0295- 


-0296 


661- 


-662 


bit-timing 


0297 




663 




RS-232 status 


0298 




664 




number of data bits for RS-232 


0299- 


-029A 


665- 


-666 


RS-232 baud-rate 


029B 




667 




pointer to received byte RS-232 


029C 




668 




pointer to input of RS-232 


029D 




669 




pointer to byte RS-232 to be transferred 



118 



Hexaddress 


Decimal 


029E 




670 




029F- 


•02A0 


fi7 1 - 




2A1 




D / J 




02A2 




fkl A 

v3 / •* 




2A3 




D / D 




02A4 




D / D 




02A5 








norn- 


. n p p 




.7 fifi 
/DO 


0300- 


•0301 


768- 


•7 69 


0302- 


•0303 


770- 


•771 


0304- 


•0305 


772- 


•773 


0306- 


•0307 


774- 


'775 


0308- 


•0309 


776- 


•111 


030A- 


•030B 


778- 


779 


030C 




780 




030D 




781 




030E 




782 




0310 




784 




0311- 


0312 


785- 


•786 


0314- 


0315 


788- 


•789 


0316- 


0317 


790- 


•791 


0318- 


0319 


792- 


•793 


031A- 


•031B 


794- 


•795 


031C- 


031D 


796- 


797 


031E- 


•031F 


798- 


•799 


0320- 


0321 


800- 


801 


0322- 


0323 


802- 


803 


0324- 


0325 


804- 


805 


0326- 


•0327 


806- 


807 


0328- 


0329 


808- 


809 


032A- 


032B 


810- 


811 


032C- 


032D 


812- 


813 


032E- 


032F 


814- 


815 


0330- 


0331 


816- 


817 


0332- 


•0333 


818- 


819 


033C- 


03FB 


828- 


1019 


0340- 


037E 


832- 


894 


0380- 


03BE 


896- 


958 


03C0- 


03FE 


960- 


1022 



Description 

pointer to output on RS-232 

memory for IPQ during tape-operation 

CIA 2 NMI flag 

CIA 1 timer A 

CIA 1 interrupt flag 

CIA 1 flag for timer A 

screen line 

sprite 11 

vector for error message 

vector for BASIC warm-start 

vector for change to interpreter-code 

vector for change to clear text (LIST) 

get vector for BASIC-command address 

evaluate vector for term 

accu for SYS-command 

X-reg for SYS-command 

Y-reg for SYS-command 

$4C JMP-command for USR-f unction 

$B248 USR-vector 

$EA31 IRQ-vector 

$FE66 BRK-vector 

$FE47 NMI-vector 

$F34A OPEN-vector 

$F291 CLOSE-vector 

$F20E CHKIN-vector 

$F250 CKOUT-vector 

$F333 CLRCH-vector 

$F157 INPUT-vector 

$F1CA OUTPUT-vector 

$F6ED STOP-vector 

$F13E GET-vector 

$F32F CLALL-vector 

$FE66 warm-start vector 

$F4A5 LOAD-vector 

$F5ED SAVE-vector 

tape buffer 

sprite 13 

sprite 14 

sprite 15 
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CHAPTER 7: COMMODORE 64 - VIC 20 



7.1 Comparison table of the ROM addresses 

C64 VIC Description 

E45F E429 messages of the operating system 

E4E0 - waits for Commodore key 

E4EC - constants for RS-232 timing 

E500 E500 gets BASIC-address of the CIA or the VIA 

E505 E505 gets screen format line/column 

E50A E50A set cursor or get cursor position 

E518 E518 screen reset 

E544 E55F clear screen 

E566 E581 cursor home 

E5A0 E5BB initialize video-controller 

E5B4 E5CF get character from keyboard buffer 

E5CA E5E5 waiting-loop for keyboard input 

E632 E64F get a character from the screen 

E684 E6B8 checks for quote 

E6B6 E6EA calculate MSB for line starts 

E8DA E921 table of color-codes 

E8EA E975 scroll screen 

E9C8 EA56 shift line up 

E9FF EA8D clear screen-line 

EAIC EAAl set character and color on screen 

EA24 EAB2 calculate pointer on color-RAM 

EA31 EABF interrupt routine 

EA87 EBIE keyboard prompt 

EB48 EBDC checking on shift, CTRL and Commodore key 

EB79 EC46 pointer on keyboard decoding tables 

EB81 EC5E decoding-tables 

EC44 ED21 checking on control-character 

EC78 ED69 decoding-tables 

ECB9 EDE4 constants for video-controller 

ECE7 EDF3 * load (cr) run (cr) ' 

ECFO EDFE LSB-tables of screen starts 

ED09 EE14 send TALK 

EDOC EE17 send LISTEN 

ED40 EEE4 output of byte on lEC-bus 

EDB9 EECO send secondary address for LISTEN 

EDC7 EECE send secondary address for TALK 

EDEF EEF6 send UNTALK 

EDFE EF04 send UNLISTEN 

EE13 EF19 get a byte from the lEC-bus 

EEB3 EF96 one millisecond delay 

EEBB EFA3 output RS-232 

EF4A F027 calculate number of RS-232 data-bits 

F014 FOED output in RS-232 buffer 

F086 F14F GET of RS-232 

F0A4 F160 set timer for lEC time-out 

FOBD F174 error messages of the operating system 

F12B FlEO put out messages 
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r^c A 


VIC 


t Id 1 


cone 
r ZU El 


FICA 


F27A 


r ZU £j 


CO 0*7 

r zL / 


r ZDU 


ca nQ 
r juy 


CO Q 1 


F34 A 


F30F 


F3CF 


F3 IF 


F3DF 


F32F 


F3EF 


F34A 


F40A 


F49E 


cc ^ o 
Fd4 z 


I? In a w 


r D 4 / 




r D DA 


r D UJJ 


r / D 


r oor 


r / Zo 


r oy D 


cT o yi 
r / o4 


i?c r\r\ 
r ODD 


c"7 £ n 
r / DU 


F6E4 


C*? C "7 

E to / 


r obU 


r / / U 


r or D 


E 1 1 El 


c7 or* 


c? ac 
r /Ar 


r / DA 


C? CT 
E f ti / 


r / UU 


CQ r\ 
r o4U 


E / u / 


I?Q R A 
r O D 4 


C7 ca 


r o D / 


cQ n Fk 
r o U U 


CQ Q a 
r ooA 


CQ 1 1 


CQ Q .4 

r oy 4 


F82E 


F8AB 


CO o o 


F8B7 


CO A 1 


F8C0 


F84A 


F8C9 


roof* 


CQ C A 

r o £jA 


CQ £0 


F8EA 


CQ D C 


CQ O C 

r y zr 


CQ C1 


F94B 


CO o 


CQ Q C 

r y oE 


r By / 


F8DB 


CD a £ 


FBEA 


FBCD 


FCOB 


r Ldo 


FCF6 


ppoa 
r i^L-A 


E UUO 




FDl 1 




r uiD 


PPC o 

r L.£jZ 


CT^O O 

r UZZ 


r UU Z 


FD3 F 


FDlO 


FD4D 


FD15 


FD52 


FD30 


FD6D 


FD50 


FD8D 


FD9B 


FD6D 


r Ur y 


CC >l O 

r E4y 


FEOO 


FE50 


FE07 


FE57 


FE18 


FE66 



BASIN get a character 

BSOUT putout a character 

CHKIN fixing of the input-device 

CKOUT fixing of the output-device 

CLOSE 

look for logical file number 

set file parameter 

CLALL closes all I/O-channels 

OPEN 

LOAD 

output 'searching for file name' 
output 'loading/verifying' 
SAVE 

output 'saving file name' 

UDTIM increase running time 

get time 

set time 

ask stop -key 

put out error messages of the operating system 

read program header of tape 

write header on tape 

get start address of the tape buffer 

set start and end address of the tape buffer 

tape-header look for name 

increase tape-buffer pointer 

waits for tape-key for reading 

asks tape-key 

waits for tape-key for writing 

read block of tape 

load program of tape 

write tape buffer on tape 

write block or program on tape 

wait for I/O-end 

checks on stop key 

read interrupt routine for tape 

set bit-counter for serial output 

write one bit on tape 

write interrupt routine for tape 

set IRQ-vector 

switch off tape drive 

checks on reaching of end address 

increase address pointer 

RESET 

checks on ROM in $8000 or $A000 

ROM-module identification 

set or get hardware and I/O-vectors 

table of hardware and I/O-vectors 

initialize work-memory 

table of IRQ-vectors 

set parameter for file names 

set parameter for active file 

get status 

set flag for messages of the operating system 
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C64 VIC Description 

FEIC FE6A set status 

FE21 FEF6 set timeout-flag for lEC-bus 

FE25 FE73 set or get RAM-upper limit 

FE34 FE82 set or get RAM-lower limit 

FE43 FEA9 NMI-routine 

FEC2 FF5C constants for RS 23 2 baud rate 

FF48 FF72 interrupt handler 

FF81 FF8A jump table of the operating-system routines 



7.2. Changing VIC~20 programs to the Commodore 64 

Although outwardly, the Commodore 64 looks similar to the 
VIC-20r the '64 contains much more than its smaller brother. 
The with high-resolution color graphics, sprites and 
fabulous sound synthesizer - all this makes the Commodore 64 
different from the VIC-20. Nevertheless, we don't want to 
do without VIC-20's software. Unfortunately it is net 
possible to interchange the plug in cartridges. But there 
are enough program listings for you to transfer onto the 
Commodore 64, 

One has to differentiate between two kinds of programs: 

1, The machine language programs 

With this program the adaption is not really difficult but 
yet more complicated than with BASIC programs. In order to 
be able to adapt these programs, you have to refer to the 
comparison table in chapter 7.1. For example, if you come 
to a jump-address that points to an address in ROM, you have 
to find to find this address in the comparison table of the 
Commodore 64 and change it with the address of the VIC-20 in 
the program. Generally it can be said that you can 
calculate the difference between the single addresses 
yourself. For instance, the start-address of the BASIC-GET 
routine at the VIC-20 is $CB7B. At the Commodore 64 it is 
exactly $2000 lower - $AB7B. Starting at $E000, the value 3 
has to be subtracted from the Commodore 64 address in order 
to get the VIC-20 address. 

2. The BASIC programs 

With the BASIC programs, the adaption is not that 
complicated. The first thing to mention, of course, is the 
different screen format. Here you have to observe that you 
either have to rewrite the screen-format of the VIC-20 
program completely or use a return after 22 characters so 
that the other characters don't slip into the same line. 
The only things that constitute a problem are the POKE 
commands. Here, too, you have to differentiate between two 
kinds : 
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1. POKE-commands into the screen memory 

Here you have to change all the addresses. Please 
compare the tables of the character-generator and the 
screen-page. 

2. POKE-commands into the operating system 

The same procedure that applies to the changing of the 
machine programs is used. 



7.3 Changing CBM/PET programs to the Commodore 64 

Many people haven't even noticed yet that there is much 
similarity between the Commodore 64 and its big 
"colleagues". It is entirely possible to make use of 
programs of the legendary PET. The screen formats are the 
same - 25 lines of 40 characters each. All Commodores of 
this category (BASIC 2 and BASIC 3) have one advantage: 
their built in BASIC interpreter is fully compatible. That 
means that you don't have to make any changes in the BASIC- 
programs, unless they are POKE commands. 

For POKES you have to know the corresponding addresses of 
PET memory are different from the ones of the Commodore 64. 
There is a great amount of literature available for the 
PET/CBM devices. You will find the appropiate books in our 
bibliography. 

In general one can say: BASIC and machine language are not 
different for these two devices. The 6510 is fully 
compatible with the 6502. Thus the only changes refer to 
the vector addresses to the different routines in the 
operating system or the different addresses of the screen 
memory and the vectors of the zero-page. 

If you observe all this, you can use all the programs of the 
PET/ CBM or VIC-20 devices on your Commodore 64. All it 
takes is a little practice. And remember: by extending 
these programs you can even take advantage of the graphics^ 
tone, and color of the Commodore 64. Which PET can offer 
you that? Besides, you have a 64K work-memory available cn 
the Commodore 64 - enough to make the changed programs even 
betterl 

Have fun with adapting your software! 
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CHAPTER 8s INPUT-/OUTPUT CONTROL - CIA 6526 



8.1 General notes about the 6526 

The complex interface adapter (CIA) 6526 is a new peripheral 
element of the 65xx family. It is equipped with: 

* 16 separately programmable in-output lines 

* 8 or 16-bit handshake at input as well as output 

* 2 independent, cascadeable 16-bit interval-timer 

* 24-hour clock (am/pm) with programmable alarm 

* 8-bit shift-register for the serial in-output 

You'll find the block-schematic of the CIA 6526 in Diagram 
8-1. 

Pin-overlay of the 40-pin housing: 
1 mass 

2-9 I/O-port A; 8-bit bidirectional 

10-17 I/O-port B; 8-bit bidirectional. Bits 6 and 7 can be 
programmed to indicate the lower course of both 
timers. 

18 -PC (port control); exit only; signals the 
availability of data at port B or at both ports. 

19 TOD (time of day); only 50/60 Hz entrance; triggers 
the real-time clock. 

20 +5V; operating voltage 

21 -IRQ (interrupt request); exit only; becomes at the 
concurrence of a set bit in ICR with the happening of 
the appropiate event. 

22 R/W (read/write); entrance only; 0= taking over of 
data bus, l=output to data bus. 

23 -CS (chip select); entrance only; 0=data bus valid, 
l=data bus tri-state (high-ohm). 

24 -FLAG; entrance only; meaning like -PC. 

25 02 (system frequency 2); entrance only; all data-bus 
actions only take place at 02=1. 

26-33 DB7-DB0(data bus); bi-directional; interface for the 
processor. 

34 -RES(reset); entrance only; 0=setting back the CIA to 

original state. 

35-38 RS3-RS0( register select); entrance only; serves for 

selecting one of the 16 registers of the CIA; only 

valid with -CS=0. 
39 SP(serial port); bi-directional; serves as 

entrance/exit of the shift register. 
42 CNT(count); bi-directional; entrance/exit of the 

shift-register frequency or trigger-entrance for the 

interval-timer . 
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8.2 Register Usage 

REG PRA (port register A) 
access; READ/WRITE 

bit 0-7 This register corresponds to the state of 
pins PAO-7 

REG 1 PRB (port register B) 
access: READ/WRITE 

bit 0-7 This register corresponds to the state of 
pins PBO-7 

REG 2 DDRA (data direction register A) 
access: READ/WRITE 

bit 0-7 These bits determine the data-direction of 
the corr'-'Sponding data-bits of port A. = entrance, 
l=exit • 

REG 3 DDRB (data direction register B) 
access: READ/WRITE 

bit 0-7 These bits determine the data-direction of 
the corresponding data-bits of port B. 0=entrance, 
l=exi'; , I 

REG 4 TA LO (timer A LO-byte) 
access: READ 

bit 0-7 This register represents the present state of 
the low-byte of timer A, 
access: WRITE 

bit 0-7 Into this register we load the low-byte of 
the value from which the timer shall count on zero. 

REG 5 TA HI (timer A Hl-byte) 
access: READ 

bit 0-7 This register represents the present state 
of the hi-byte of timer A. 
access: WRITE 

bit 0-7 Into this register we load the hi-byte of 
the value from which the timer shall count on zero. 

REG 6 TB LO (timer B LO-byte) 

access and overlay is the same as in REG 4. 

REG 7 TB HI (timer B Hl-byte) 

access and overlay is the same as in REG 5. 

REG 8 TOD lOTHS (clock 1/10 sec) 
access: READ 

bit 0-3 tenth seconds of the real-time clock in BCD 
format 

bit 4-7 always 

access: WRITE and CRB bit 7=0 

bit 0-3 tenth seconds in BCD format 

bit 4-7 must be 

access: WRITE and CRB bit 7=1 
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bit 0-3 preselection of the tenth seconds of the 
alarm-time in BCD format 
bit 4-7 must be 



REG 9 TOD SEC (clock sec) 
access: READ 

bit 0-3 single-seconds of the clock in BCD format 
bit 4-6 decimal-seconds of the clock in BCD format 
bit 7 always 

Further types of access are analogous to REG 8, 

REG 10 TOD MIN (clock min) 
access: READ 

bit 0-3 single-minutes of the clock in BCD format 
bit 4-6 decimal-minutes of the clock in BCD format 
bit 7 always 

Further types of access are analogous to REG 8, 

REG 11 TOD HR (clock hour) 
access: READ 

bit 0-3 single-hours of the clock in BCD format 
bit 4 decimal-hours of the clock 
bit 5-6 always 
bit 7 0= am, 1= pm 

Further types of access are analogous to REG 8. 

REG 12 SDR (serial data register) 
access: READ/WRITE 

bit 0-7 From this register, the data is pushed out 
bit by bit to pin SP or pushed into this register by 
pin SP respectively. 

REG 13 ICR (interrupt control register) 
access: READ (INT DATA) 
bit l=lower course timer A 
bit 1 l=lower course timer B 
bit 2 l=parity of time and chosen alarm-time 
bit 3 1=SDR full/empty, depending on the way of 
operation 

bit 4 l=signal occured at pin FLAG 
bit 5-6 always 

bit 7 correspondence of at least one bit of INT MASK 
and INT DATA occured 

ATTENTION: When reading this register, all bits are 

cleared I 
access:WRITE (INT MASK) 

Meaning of the bits as above, except bit 7: 

bit 7 l=every 1-bit sets the corresponding mask-bit. 

The others remain untouched, 

0=every 1-bit clears the corresponding mask- 
bit. 

The others remain untouched. 
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REG 14 CRA (control register A) 
access: READ/ WRITE 
bit l=timer A start, O=stop 

bit 1 l = lower course of timer A is signaled to pin 
PB6. 

bit 2 l=each lower course of timer A tilts PB6 into 
the respective position, 0=each lower course of timer 
A creates a Hl-pulse at the PB6 with the length of 
one system-frequency. 

bit 3 l=timer A only counts once from the start- 
value to zero and stops then, 0=timer A continuosly 
counts from the start-value to zero. 

bit 4 l = absolute loading of a new start-value into 
timer A. This bit functions as strobe. It has to be 
set anew at every absolute loading. 

bit 5 This bit determines the source of the 

time_trigger. l=timer counts increasing CNT-flanks, 

0=timer counts system-frequency pulses. 

bit 6 1=SP is entrance, 0=SP is exit 

bit 7 l=realtime-clock trigger is 50Hz, 0=trigger is 

60Hz 

REG 15 CRB (control register B) 
access: READ/WRITE 

bit 0-4 These bits have the same meaning as in REG 
14, but related to timer B and pin PB7 bit 5-6 These 
bits determine the source of the trigger for timer B. 
00=timer counts system-frequencies, 10=timer counts 
increasing CNT-flanks, 01=timer B counts lower 
courses of timer A, ll=timer B counts lower courses 
of timer A if CNT=1 
bit 7 l=set alarm, 0=set time. 



8.3 I/O Ports 

Ports A and B each consist of an 8-bit data register (PR) 
and an 8-bit data-direction register (DDR). If a bit is set 
in DDR, the corresponding bit in PR functions as an output. 
If a bit in DDR =0, the corresponding bit in PR is defined 
as input. During a READ-access, the PR represents the 
present state of the corresponding pin ( PAO-7 ,PB0-7 ) , for 
the entrance as well as for the exit bits. Beyond this, PB6 
and PB7 can take over exit functions for both timers. 

The data-transfer between the CIA and the "outside world" 
connected to PA/PB can be achieved by a discharge-operation. 
For this serve PC and FLAG. PC becomes for the duration of 
a frequency if it was preceded by a READ or WRITE access to 
PRB. Thus the signal can indicate the availability of data 
to PB or the acceptance of data by PB. FLAG is a negatively 
edge-triggered input that could be connected to a PC of 
another CIA. A falling-edge at FLAG also sets the FLAG 
interrupt-bit . 
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The serial data port SDR is a synchronous 8-bit shift- 
register. CRA bite determines input or output mode. In the 
input mode, the data to SP with the increasing flank of a 
signal at CNT are transferred into a shift-register. After 
8 CNT-pulses, the content of the shift-register is 
transferred to SDR and the SP-bit is set in ICR. 

In the output mode, timer A functions as a baud-rate 
generator. The data from SDR is pushed out to SP with half 
the lower-course frequency of timer A. The theoretically 
highest baud-rate is thus 1/4 of the system frequency. 

The transfer starts after the data has been written into 
SDR, provided that timer A is running and in continuous mode 
(CRA bit 0=1 and bit 3=0). 

The cycle derived from timer A appears at CNT. The data 
from SDR are loaded into the shift-register and then pushed 
out of SP with every falling flank at CNT. 

After 8 CNT-pulses the SP-interrupt is created. But if SDR 
is loaded with new data before this event, these are loaded 
automatically into the shift-register and pushed out. In 
this case no interrupt appears. The data from SDR are pushed 
out with the Hl-byte first. Incoming data should have the 
same format. 



8.4 The Timer 

Each of the two interval-timers consists of a 16-bit counter 
(read only) and a 16-bit intermediate memory (write only). 
Data that is written into the timer ends out in the 
intermediate memory while the reading-data represents the 
present state of the counter. 

Both timers can be used independently as well as together. 
The different ways of operation allow the creation of long 
time delays, variable pulse-lengths, and impulse-strings. 
When using th CNT-entrance , the timers can count external 
impulses or measure frequencies. 

Every timer has a control-register assigned to it which 
allows it the following functions: 

START/STOP (bit 0) 

This bit can start or stop the timer at any time. 
PB ON/OFF (bit 1) 

Here, the lower course of the timer is directed to PB (PB6 
for timer A, PB7 for timer B). This function has priority 
before the data-direction determined in DDRB. 
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TOGGLE/PULSE 

This bit determines the kind of lower-course pulse that 
appears at PB. Either PB is tilted to the respective other 
position, or a positive pulse with the duration of one cycle 
is created. 

ONE-SHOT/CONTINUOUS (bit 3) 

In the one-shot operation the timer counts from the 
intermediate memory value to zero, sets the IRC-bit, loads 
the counter again with intermediate-memory value and stops 
then. In the continuous-mode the event described above 
happens cyclic. 

FORCE LOAD (bit 4) 

This bit allows the timer to load any time, no matter 
whether it is presently running or not. 

INPUT MODE (bit 5 CRA, bit 5-6 CRB) 

These allow a choice of the cycle with which the timer is 
counted down. Timer A can be supplied by either the system- 
cycle or with a cycle that was given to CNT. In addition to 
that, timer B can be fed with the lower-course pulses of 
timer A, either absolute or independent of CNT=1. 



8.5 Real-Time Clock 

The real-time clock (TOD) is a 24-hour clock (am/pm) with a 
resolution of 1/lOsec. 

It consists of four registers: 1/lOsec, sec, min, hr. The 
am/pm-bit is the one with the highest value of the hour 
register. Every register is organized in the BCD-format so 
that the read values can be used without big calculation 
operations . 

A cycle serves a 50/60Hz-signal (programmable, CRA-bit 7) at 
pin TOD. Furthermore, there is an alarm-register with which 
one can create an interrupt at any time. The alarm-register 
overlays the same address as the TOD- register. That is why 
the access is controlled with bit 7. The alarm-register is 
write only. Every read-access represents the state of the 
TOD-register, independent of CRB bit 7. 

In order to set and read the time correctly, a certain order 
has to be kept: 

If the hour-register is being written on, the clock stops 
automatically. It is not until a write-access to the 1/10 
sec-register took place that the clock will continue to run. 
By this the clock starts indeed at the right time. Since a 
transfer into an already read register can occur during the 
reading of the complete time, the complete time will be 
buffered into an intermediate-memory at the reading of the 
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hour-register. The intermediate-memory is not set free 
until the 1/10 has been read. 

If only one register shall be read, this can happen easily 
of course; but if this register is the hour-register, the 
1/lOsec-register has to be read afterwards in order to set 
the intermediate-memory free again. 



8.5.1 With a small tricky the right time 

The long-time accuracy of the clock TI$, supplied by the 
operating system, leaves something to be desired as far as 
the system is concerned. You have to count on a maximum 
deviation of 1/2 hr. per day. 

For those who insist on the correct time, the real-time 
clock in the CIAs offer a solution. It gets its cycle from 
the main frequency which shows an amazing long-time 
constancy. 

In order to simplify the handling of the real-time clock for 
you, we worked out two small basic-programs. One serves for 
setting the clock, the other for reading it. First the 
program for setting it. The value for 1/lOsec is always set 
on here. 

10 C=56328: REM basis address of the clock in CIA 1 
20 REM C=56584 for the clock in CIA 2 
30 POKE C+7,PEEK(C+7)AND127 
35 POKE C+6 ,PEEK(C+6)OR128 

40 INPUT"PUT IN TIME IN FORMAT HHMMSS";A$ 

50 IF LEN(A$)<>6 THEN 40 

60 H=VAL(LEFT$(A$,2) ) 

70 M=VAL(MID$(A$,3,2)) 

80 S=VAL(RIGHT$(A$,2) ) 

90 IF H>23 THEN 40 

100 IF H>11 THEN H=H+68 

110 POKE C+3,16*INT(H/10)+H-INT(H/10)*10 
120 IF M>59 THEN 40 

130 POKE C+2,16*INT(M/10)+M-INT(M/10)*10 
140 IF S>59 THEN 40 

150 POKE C+1,16*INT(S/10)+S-INT(S/10)*10 
160 POKE CO 

The following program enables you to read the time: 

10 C=56328: REM basis address of the clock in CIA 1 

20 PRINT "(shft/clr)":REM C=56584 for clock in CIA 2 

30 H=PEEK(C+3) :M=PEEK(C+2) :S=PEEK(C+1) :T=PEEK(C) 

40 FL=1 

50 IF H>32 THEN H=H-128:FL=0 

60 H=INT(H/16)*10+H-INT(H/16)*16;ON FL GOTO 80 

65 IF H=12 THEN 85 
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70 H=H+12 

80 IF H=12 THEN H=0 

85 M=INT(M/16)*10+M-INT(M/16)*16 

90 S=INT(S/16)*10+S-INT(S/16)*16 

100 T$=STR$(T) ^ ^ ^ 

110 H$=STR$(H) :IF LEN(H$)=2 THEN H$=" 0"+RIGHT$ ( H$ , 1 ) 
120 M$=STR$(M) :IF LEN(M$)=2 THEN M$=" 0"+RIGHT$ ( M$ , 1 ) 
130 S$=STR4(S) :IF LEN(S$)=2 THEN S$=" "+RIGHT$ ( S$ , 1 ) 
140 PRINT "(home)"; , 
150 PRINT " RIGHT$ ( H$ , 2 ) " : "RIGHT$ ( M$ , 2 ) " : "RIGHTS ( S$ , 2 ) " : 0" ; 
160 PRINT RIGHT$(T$,1) 
170 GOTO 30 

After pressing STOP/RESTORE, you have to set the time again 
since the operating system sets all registers back to the 
start-value. Unfortunately, the bit for the 50/60Hz 
selection is affected by this as well. Your clock would be 
far behind. 



8.6 The CIAs in the Commodore 64 

If you want to use the CIAs in the CBM64 for your own 
purposes, please note that they were assigned special tasks 
in the computer. This applies especially for the usage of 
interrupts because they cause the operating-system to run 
through certain routines. So please avoid changing the mask 
in ICR. 

The assignments for the CIAs from within CBM64 are: 
CIA 1 Base address $DC00(56320) 
REG (PRA) 

Bit 0-7 During normal operation the sequence- 
selection of the keyboard-matrix is determined here. 
Yet some bits are connected with control-port 1 
outside the computer. It serves for connecting joy- 
sticks or paddles: 

Bit 0-4 Joy-stick 0, order: up, down, left, right, 
key 

Bit 6-7 Selection paddle-set A/B. Only one of the 
two bits may be 0. 

REG 1 (PRB) 

Bit 0-7 During normal operation occurs a column- 
back-report of the keyboard-matrix if a key was 
pressed. 

Bit 0-4 The same function as REG 0, but for control- 
port 2 (joy-stick 1). 

REG 13 (ICR) 

Bit 4 Input-data from the cassette-port 
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CIA 2 Basis-address $DDOO( 56576) 
PEG (PPA) 

Bit 0-1 VA 14-15 (address bits of the highest value 
of the video-ram). 

Bit 2 TXD (only in connection with with an PS 232 

cartridge, otherwise free). 

Bit 3 ATN (exit serial bus) 

Bit 4 CLOCK (exit serial bus) 

Bit 5 DATA (exit serial bus) 

Bit 6 CLOCK (entrance serial bus) 

Bit 7 DATA (entrance serial bus) 

REG 1 (PPB) 

Bit 0-7 Usually free. When putting on an PS 232 

cartridge they get the following meaning: 

Bit PXD (receive data) 

Bit 1 RTS (request to send) 

Bit 2 DTP (data terminal ready) 

Bit 3 PI (ring indicator) 

Bit 4 DCD (data carrier detect) 

Bit 6 CTS (clear to send) 

Bit 7 DSP (data set ready) 

REG 13 (ICR) 

Bit 4 PXD (only at PS 232 operation, otherwise 
free) . 



8.7 Using the Joysticks 

When using the joysticks you ought to know that they overlay 
the same CIA-bits that are used for asking the keyboard at 
normal operation. 

In order to work with the joysticks anyway, the keyboard- 
input has to be eliminated for that particular time. This 
can only happen within a program that does not use the 
keyboard and thus does not contain an INPUT or the like. 

The following program shows the joystick functions in a 
reliable manner: 

10 POKE56322,224 
20 J=PEEK( 56320) 

30 IF(JAND1)=0 THEN PRINT "UP" 
40 IF(JAND2)=0 THEN PRINT "DOWN" 
50 IF(JAND4)=0 THEN PRINT "LEFT" 
60 IF((JAND8=0 THEN PRINT "RIGHT" 
70 IF(JAND16)=0 THEN PRINT "BUTTON" 
80 GOTO20 

This program expects the joystick at control port 2. If the 
joystick is operated at control port 1, the address in line 
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20 has to be changed to 56321. 

The only thing that'll get you out of the above program is 
STOP/RESTORE. The last line in a "serious" program should 
be • 

100 POKE 56322,255 

With this you unlock the keyboard again. Of course you can 
put this line before any keyboard action if your program 
needs the keyboard and the joy-sticks. But then a command 
like the one in line 10 has to come before every reading of 
the joystick. 
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APPENDIX A 

Commodore 64 Rom Listings 



Basic - Interpreter 



AOOO 94 E3 
A002 7B E3 
A004 43 42 



Start-Vector 
NM I -Vector 
cbmbasic 



*E394 
*E37b 



AOOC 30 A8 41 A7 ID AD F7 A8 
A014 A4 AB BE AB 80 BO 05 AC 
AOIC A4 A9 9F A8 70 A8 27 A9 
A024 IC A8 82 AS Dl A8 3A A9 
A02C 2E A8 4A A9 2C B8 67 El 
A034 55 El 64 El B2 B3 23 B8 
A03C 7F AA 9F AA 56 A8 9B A6 
A044 5D A6 85 AA 29 El BD El 
A04C C6 El 7A AB 41 A6 



Addresses of BASIC 
commands (minus 1) 



A052 39 BC CC BC 58 BC 10 03 
A05A 7D B3 9E B3 71 BF 97 EO 
A062 EA B9 ED BF 64 E2 6B E2 
A06A B4 E2 OE E3 OD B8 7C B7 
A072 65 B4 AD B7 8B B7 EC B6 
A07A 00 B7 2C B7 37 B7 79 69 



Addresses of BASIC 
functions 



A080 79 69 B8 79 52 B8 7B 2A 
A088 BA 7B 11 BB 7F 7A BF 50 
A090 E8 AF 46 E5 AF 7D B3 BF 
A098 5A D3 AE 64 15 BO 



Priority codes and 
addresses for BASIC 
opperators 





BASIC command 


Mords 


A09E 


45 


4E 


C4 


46 


4F 


D2 


4E 


45 


end 


for 




A0A6 


58 


D4 


44 


41 


54 


CI 


49 


4E 


next 


data 




AOAE 


50 


55 


54 


A3 


49 


4E 


50 


55 


i nput# 


input 




A0B6 


D4 


44 


49 


CD 


52 


45 


41 


C4 


dim 


read 




AOBE 


4C 


45 


D4 


47 


4F 


54 


CF 


52 


let 


goto 




A0C6 


55 


CE 


49 


C6 


52 


45 


53 


54 


run 


if 




AOCE 


4F 


52 


C5 


47 


4F 


53 


55 


C2 


restore 


gosub 




A0D6 


52 


45 


54 


55 


52 


CE 


52 


45 


return 


rem 




AODE 


CD 


53 


54 


4F 


DO 


4F 


CE 


57 


stop 


on 




A0E6 


41 


49 


D4 


4C 


4F 


41 


C4 


53 


wait 


load 




AOEE 


41 


56 


C5 


56 


45 


52 


49 


46 


save 


verify 




A0F6 


D9 


44 


45 


C6 


50 


4F 


4B 


C5 


def 


poke 




AOFE 


50 


52 


49 


4E 


54 


A3 


50 


52 


print# 


print 




A106 


49 


4E 


D4 


43 


4F 


4E 


D4 


4C 








AlOE 


49 


53 


D4 


43 


4C 


D2 


43 


4D 


cont 


list 




A116 


C4 


53 


59 


D3 


4F 


50 


45 


CE 


clr 


cmd 


sys 


AllE 


43 


4C 


4F 


53 


C5 


47 


45 


D4 


open 


close 




A126 


4E 


45 


D7 


54 


41 


42 


A8 


54 


get 


new 




A12E 


CF 


46 


CE 


53 


50 


43 


A8 


54 


tab( 


to 




A136 


48 


45 


CE 


4E 


4f 


D4 


53 


54 


spc ( 


then 




A13E 


45 


DO 


AB 


AD 


AA 


AF 


DE 


41 


not 


stop 




A146 


4E 


C4 


4F 


D2 


BE 


BD 


BC 


53 


+ - * / 




and 



A14E 


47 


CE 


49 


4E 


D4 


41 


42 


D3 


A156 


55 


53 


D2 


46 


52 


C5 


50 


4F 


A15E 


D3 


53 


51 


D2 


52 


4E 


C4 


4C 


A166 


4F 


C7 


45 


58 


DO 


43 


4F 


D3 


A16E 


53 


49 


CE 


54 


41 


CE 


41 


54 


A176 


CE 


50 


45 


45 


CB 


4C 


45 


CE 


A17E 


53 


54 


52 


A4 


56 


41 


CC 


41 


A186 


53 


C3 


43 


48 


52 


A4 


4C 


45 


A18E 


46 


54 


A4 


52 


49 


47 


48 


54 


A196 


A4 


4D 


49 


44 


A4 


47 


CF 


00 


****************************** 


A19E 


54 


4F 


4F 


20 


4D 


41 


4E 


59 


A1A6 


20 


46 


49 


4C 


45 


D3 


46 


49 


AlAE 


4C 


45 


20 


4F 


50 


45 


CE 


46 


A1B6 


49 


4C 


45 


20 


4E 


4F 


54 


20 


AlBE 


4F 


50 


45 


CE 


46 


49 


4C 


45 


A1C6 


20 


4E 


4F 


54 


20 


46 


4F 


55 


AlCE 


4E 


C4 


44 


45 


56 


49 


43 


45 


A1D6 


20 


4E 


4F 


54 


20 


50 


52 


45 


AIDE 


53 


45 


4E 


D4 


4E 


4F 


54 


20 


A1E6 


49 


4E 


50 


55 


54 


20 


46 


49 


AlEE 


4C 


C5 


4E 


4F 


54 


20 


4F 


55 


A1F6 


54 


50 


55 


54 


20 


46 


49 


4C 


AlFE 


C5 


4D 


49 


53 


53 


49 


4E 


47 


A206 


20 


46 


49 


4C 


45 


20 


4E 


41 


A20E 


4D 


C5 


49 


4C 


4C 


45 


47 


41 


A216 


4C 


20 


44 


45 


56 


49 


43 


45 


A21E 


20 


4E 


55 


4D 


42 


45 


D2 


4E 


A226 


45 


58 


54 


20 


57 


49 


54 


48 


A22E 


4F 


55 


54 


20 


46 


4F 


D2 


53 


A236 


59 


4E 


54 


41 


P8 


52 


45 


54 


A23E 


55 


52 


4E 


20 


57 


49 


54 


48 


A246 


4F 


55 


54 


20 


47 


4F 


53 


55 


A24E 


C2 


4F 


55 


54 


20 


4F 


46 


20 


A256 


44 


41 


54 


CI 


49 


4C 


4C 


45 


A25E 


47 


41 


4C 


20 


51 


55 


41 


4E 


A266 


54 


49 


54 


D9 


4F 


56 


45 


52 


A26E 


46 


4C 


4F 


D7 


4F 


55 


54 


20 


A276 


4F 


46 


20 


4D 


45 


4D 


4F 


52 


A27E 


D9 


55 


4E 


44 


45 


46 


27 


44 


A286 


20 


53 


54 


41 


54 


45 


4D 


45 


A28E 


4E 


D4 


42 


41 


44 


20 


53 


55 


A296 


42 


53 


43 


52 


49 


50 


D4 


52 


A29E 


45 


44 


49 


4D 


27 


44 


20 


41 


A2A6 


52 


52 


41 


D9 


44 


49 


56 


49 


A2AE 


53 


49 


4F 


4E 


20 


42 


59 


20 


A2B6 


5A 


45 


52 


CF 


49 


4C 


4C 


45 


A2BE 


47 


41 


4C 


20 


44 


49 


52 


45 


A2C6 


43 


D4 


54 


59 


50 


45 


20 


4D 


A2CE 


49 


53 


4D 


41 


54 


43 


C8 


53 


A2D6 


54 


52 


49 


4E 


47 


20 


54 


4F 


A2DE 


4F 


20 


4C 


4F 


4E 


C7 


46 


49 


A2E6 


4C 


45 


20 


44 


41 


54 


CI 


46 


A2EE 


4F 


52 


4D 


55 


4C 


41 


20 


54 



or = 


sgn 




int 


abs 


usr 


■fre 


pos 


sqr 


rnd 


1 og 




exp 


cos 


sin 


tan 


atn 


peek 


len 


str* 




val 


asc 




chr* 


left* 




right* 


mid* 


go 



BASIC error messages 
1. too many -files 



2- file open 

3- file not open 

4- file not found 

5- device not present 



6- not input file 

7. not output file 

8. missing filename 

9. illegal device number 

10- next without for 

11- syntax 

12. return without gosub 

13- out of data 

14- illegal quantity 

15- overflow 

16- out of memory 

17- undef 'd statement 



18. bad subscript 

19- redim'd array 

20. division by zero 

21- illegal direct 

22. type mismatch 

23- string too long 



24- file data 



A2F6 


4F 


4F 


20 


43 


4F 


4D 


50 


4C 


25. formula too complex 


A2FE 


45 


D8 


43 


41 


4E 


27 


54 


20 




A306 


43 


4F 


4E 


54 


49 


4E 


55 


C5 


26. can't continue 


A30E 


55 


4E 


44 


45 


46 


27 


44 


20 


27. undef 'd -Function 


A316 


46 


55 


4E 


43 


54 


49 


4F 


CE 




A31E 


56 


45 


52 


49 


46 


D9 


4C 


4F 


28- verify 


A326 


41 


C4 














29. load 

Addresses of error mess< 


A328 


9E 


Al 


AC 


Al 


B5 


Al 


C2 


Al 




A330 


DO 


Al 


E2 


Al 


FO 


Al 


FF 


Al 




A338 


lO 


A2 


25 


A2 


35 


A2 


3B 


A2 




A340 


4F 


A2 


5A 


A2 


6A 


A2 


72 


A2 




A348 


7F 


A2 


90 


A2 


9D 


A2 


AA 


A2 




A350 


BA 


A2 


C8 


A2 


D5 


A2 


E4 


A2 




A358 


ED 


A2 


00 


A3 


OE 


A3 


IE 


A3 




A360 


24 


A3 


83 


A3 














BASIC interpreter messac 


A364 


OD 


4F 


4B 


OD 


00 


20 


20 


45 


ok 


A36C 


52 


52 


4F 


52 


00 


20 


49 


4E 


error 


A374 


20 


00 


OD 


OA 


52 


45 


41 


44 


in 


A37C 


59 


2E 


OD 


OA 


00 


OD 


OA 


42 


ready. 


A384 


52 


45 


41 


4B 


00 


AO 






break 



A38A 


BA 






TSX 




A38B 


E8 






INX 




A38C 


E8 






INX 




A38D 


E8 






INX 




A38E 


E8 






INX 




A38F 


6D 


01 


01 


LDA 


*0101,X 


A392 


C9 


81 




CMP 


#$81 


A394 


DO 


21 




BNE 


*A3B7 


A396 


A5 


4A 




LDA 


$4A 


A398 


DO 


OA 




BNE 


*A3A4 


A39A 


BD 


02 


01 


LDA 


*0102,X 


A39D 


85 


49 




STA 


*49 


A39F 


BD 


03 


01 


LDA 


$0103, X 


A3A2 


85 


4A 




STA 


$4A 


A3A4 


DD 


03 


01 


CMP 


*0103,X 


A3A7 


DO 


07 




BNE 


*A3B0 


A3A9 


A5 


49 




LDA 


$49 


A3AB 


DD 


02 


01 


CMP 


$0102, X 


A3AE 


FO 


07 




BEQ 


$A3B7 


A3B0 


8A 






TXA 




A3B1 


18 






CLC 




A3B2 


69 


12 




ADC 


#$12 


A3B4 


AA 






TAX 




A3B5 


DO 


D8 




BNE 


$A38F 


A3B7 


60 






RTS 





Stack routine for "GOSUB" 
and "FOR-NEXT" 



FOR code 

Compare variable name 



***************************** 
A3B8 20 08 A4 JSR $A40a 



Increase stack pointer by 

decimal 18 
Chec k nex t 1 oop 



Block-shift routine 
checks on free memory 



A-3 



A3BB 


85 


31 


STA 


$31 




A3BD 


84 


32 


STY 


*32 




A3BF 


38 




SEC 






A3C0 


A5 


5A 


LDA 


$5A 




A3C2 


E5 


5F 


SBC 


*5F 




A3C4 


85 


22 


STA 


$22 




A3C6 


A8 




TAY 






A3C7 


A5 


5B 


LDA 


$5B 




A3C9 


E5 


60 


SBC 


$60 




A3CB 


AA 




TAX 






A3CC 


E8 




INX 






A3CD 


98 




TYA 






A3CE 


FO 


23 


BEQ 


$A3F3 




A3D0 


A5 


5A 


LDA 


$5A 




A3D2 


38 




SEC 






A3D3 


E5 


22 


SBC 


$22 




A3D5 


85 


5A 


STA 


$5A 




A3D7 


BO 


03 


BCS 


$A3DC 




A3D9 


C6 


5B 


DEC 


$5B 




A3DB 


38 




SEC 






A3DC 


A5 


58 


LDA 


$58 




A3DE 


E5 


22 


SBC 


$22 




A3E0 


85 


58 


STA 


$58 




A3E2 


BO 


08 


BCS 


$A3EC 




A3E4 


C6 


59 


DEC 


$59 




A3E6 


90 


04 


BCC 


$A3EC 




A3E8 


Bl 


5A 


LDA 


($5A) , 


Y 


A3EA 


91 


58 


STA 


($58) , 


Y 


A3EC 


88 




DEY 






A3ED 


DO 


F9 


BNE 


$A3E8 




A3EF 


Bl 


5A 


LDA 


($5A) , 


Y 


A3F1 


91 


58 


STA 


($58) , 


Y 


A3F3 


C6 


5B 


DEC 


$5B 




A3F5 


C6 


59 


DEC 


$59 




A3F7 


CA 




DEX 






A3F8 


DO 


F2 


BNE 


$A3EC 




A3FA 


60 




RTS 







SEt Carry 

$5F/$60 old block-start 
$5A/$5B old block-start+1 
$58/$59 new block-end 



***************************** 



A3FB 


OA 




ASL 




A3FC 


69 


3E 


ADC 


#$3E 


A3FE 


BO 


35 


BCS 


$A435 


A400 


85 


22 


STA 


$22 


A402 


BA 




TSX 




A403 


E4 


22 


CPX 


$22 


A405 


90 


2E 


BCC 


$A435 


A407 


60 




RTS 




************************^ 


A408 


C4 


34 


CPY 


$34 


A40A 


90 


28 


BCC 


$A434 


A40C 


DO 


04 


BNE 


$A412 


A40E 


C5 


33 


CMP 


$33 



Check on stack-space 
accumulator must get hal-f 

the amount of needed space 
display "out o-f memory" 



display "out of memory" 

Creats space in memory for 
inserted lines and 
variables 
sets A & Y to location in 
memory- 



A-4 



A410 


90 


22 




BCC 


*A434 




A412 


48 






PHA 






A413 


A2 


09 




LDX 


#*09 




A415 


98 






TYA 






A416 


48 






PHA 






A417 


B5 


57 




LDA 


*57,X 


save registers for 


A419 


CA 






DEX 




ar i thmeti c 


A41A 


10 


FA 




BPL 


$A416 




A41C 


20 


26 


B5 


JSR 


$B526 


garbage collection 


A41F 


A2 


F7 




LDX 


#*F7 


A421 


68 






PLA 






A422 


95 


61 




STA 


*61,X 


get back register 


A424 


E8 






INX 




A425 


30 


FA 




BMI 


*A421 




A427 


68 






PLA 






A428 


A8 






TAY 






A429 


68 






PLA 






A42A 


C4 


34 




CPY 


*34 




A42C 


90 


06 




BCC 


*A434 


O.K. ready 


A42E 


DO 


05 




BNE 


*A435 


no space, "out o-f memory" 


A430 


C5 


33 




u#i ir 




A432 


BO 


01 




BCS 


*A435 




A434 


60 






RTS 






A435 


A2 


10 




LDX 


#$10 


error # for "out of memory" 




Out-put error messages 


A437 


6C 


00 


03 


JMP 


(*0300) 


JMP $A43A 


A43A 


8A 






TXA 




error in x-register; 1 - 30 


A43B 


OA 






ASL 






A43C 


AA 






TAX 






A43D 


BD 


26 


A3 


LDA 


*A326,X 




A440 


85 


22 




STA 


*22 




A442 


BD 


27 


A3 


LDA 


*A327,X 


get address of message 


A445 


85 


23 




STA 


:*23 




A447 


20 


CC 


FF 


JSR 


*FFCC 


set back active I/O 


A44A 


A9 


00 




LDA 


#*00 


channels 


A44C 


85 


13 




STA 


*13 


set back I/O flag 


A44E 


20 


D7 


AA 


JSR 


*AAD7 


out-put (CR) 8c (LF) 


A451 


20 


45 


AB 


JSR 


*AB45 


out -put "?" 


A454 


AO 


00 




LDY 


#*00 




A456 


Bl 


22 




LDA 


<*22) ,Y 


text of error message 


A458 


48 






PHA 






A459 


29 


7F 




AND 


#*-7F 




A45B 


20 


47 


AB 


JSR 


*AB47 


out-put error message 


A45E 


C8 






I NY 




A45F 


68 






PLA 






A460 


10 


F4 




BPL 


*A456 




A462 


20 


7A 


A6 


JSR 


*A67A 


initialize BASIC-pointers , 


A465 


A9 


69 




LDA 


#$69 


block CONT 


A467 


AO 


A3 




LDY 


#$A3 


pointer A/Y to error 


A469 


20 


IE 


AB 


JSR 


*AB1E 


out-put string 


A46C 


A4 


3A 




LDY 


$3A 


program mode? 


A46E 


C8 






I NY 






A46F 


FO 


03 




BEQ 


$A474 


no 


A471 


20 


C2 


BD 


JSR 


*BDC2 


out-put "in (line number)" 


A474 


A9 


76 




LDA 


#*76 




A476 


AO 






LDY 


#*A3 


set pointer "READY." 


A3 







A-5 



A478 


20 


IE 


AB 


JSR 


$AB1E 


out— put string 


A47B 


A9 


80 




LDA 


#4:80 


A47D 


20 


90 


FF 


JSR 


*FF90 


set direct-mode flag 




INPUT waiting loop 


A480 


6C 


02 


03 


JMP 


(^0302) 


JMP *A483 


A483 


20 


60 


A5 


JSR 


$A560 


get BASIC line into input 


A486 


86 


7A 




STX 


*7A 


bu-f -f er 


A488 


84 


7B 




STY 


$7B 


CHRGET pointer to buffer 


A48A 


20 


73 


00 


JSR 


$0073 


CHRGET get next character 


A48D 


AA 






TAX 






A48E 


FO 


FO 




BEQ 


$A480 


buffer empty, keep waiting 


A490 


A2 


FF 




LDX 


#*FF 




A492 


86 


3A 




STX 


*3A 


sign for direct mode 


A494 


90 


06 




BCC 


*A49C 


digit, then insert as line 


A496 


20 


79 


A5 


JSR 


*A579 


change line to interpreter 


A499 


4C 


El 


A7 


JMP 


:^A7E1 


execute command code 




Clr & insrt of program line? 


A49C 


20 


6B 


A9 


JSR 


$A96B 


change line # to addr form 


A49F 


20 


79 


A5 


JSR 


*A579 


change line to intrpr code 


A4A2 


84 


OB 




STY 


*0B 


pointer to input buffer 


A4A4 


20 


13 


A6 


JSR 


*A613 


r"al f^iil A't'O AHHK*fac:c: of 1 X ne 


A4A7 


90 


44 




BCC 


*A4ED 




***************************** 


- . 

Erase program line 


A4A9 


AO 


01 




LDY 


#*01 




A4AB 


Bl 


5F 




LDA 


(*5F) ,Y 




A4AD 


85 


23 




STA 


*23 




A4AF 


A5 


2D 




LDA 


*2D 




A4B1 


85 


22 




STA 


$22 




A4B3 


A5 


60 




LDA 


*60 




A4B5 


85 


25 




STA 


*25 




A4B7 


A5 


5F 




LDA 


*5F 




A4B9 


88 






DEY 






A4BA 


Fl 


5F 




SBC 


(*5F) ,Y 




A4BC 


18 






CLC 






A4BD 


65 


2D 




ADC 


*2D 




A4BF 


85 


2D 




STA 


*2D 




A4C1 


85 


24 




STA 


*24 




A4C3 


A5 


2E 




LDA 


*2E 




A4C5 


69 


FF 




ADC 


#*FF 




A4C7 


85 


2E 




STA 


*2E 




A4C9 


E5 


60 




SBC 


*60 




A4CB 


AA 






TAX 






A4CC 


38 






SEC 






A4CD 


A5 


5F 




LDA 


*5F 




A4CF 


E5 


2D 




SBC 


*2D 




A4D1 


A8 






TAY 






A4D2 


BO 


03 




BCS 


*A4D7 




A4D4 


E8 






INX 






A4D5 


C6 


25 




DEC 


*25 




A4D7 


18 






CLC 






A4D8 


65 


22 




ADC 


*22 




A4DA 


90 


03 




BCC 


*A4DF 





A-6 



A4DC 


C6 


23 


DEC 


*23 


A4DE 


18 




CLC 




A4DF 


Bl 


22 


LDA 


(*22) ,Y 


A4E1 


91 


24 


STA 


<*24) ,Y 


A4E3 


C8 




I NY 




A4E4 


DO 


F9 


BNE 


*A4DF 


A4E6 


E6 


23 


INC 


*23 


A4E8 


E6 


25 


INC 


*25 


A4EA 


CA 




DEX 




A4EB 


DO 


F2 


BNE 


*A4DF 



A4ED 


20 


59 


A6 


JSR 


*A659 




A4F0 


20 


33 


A5 


JSR 


*A533 




A4F3 


AD 


00 


02 


LDA 


*0200 




A4F6 


FO 


88 




BEQ 


*A480 




A4F8 


18 






CLC 






A4F9 


A5 


2D 




LDA 


*2D 




A4FB 


85 


5A 




STA 


*5A 




A4FD 


65 


OB 




ADC 


*0B 




A4FF 


85 


58 




STA 


*58 




A501 


A4 


2E 




LDY 


*2E 




A503 


84 


5B 




STY 


*5B 




A505 


90 


Ol 




BCC 


*A508 




A507 


C8 






I NY 






A508 


84 


59 




STY 


*59 




A50A 


20 


B8 


A3 


JSR 


*A3B8 




A50D 


A5 


14 




LDA 


$14 






f-t*r 


1 

1 Zj 




L_JJY 






A511 


8D 


FE 


01 


STA 


*01FE 




A514 


8C 


FF 


01 


STY 


*01FF 




A517 


A5 


31 




LDA 


*31 




A519 


A4 


32 




LDY 


$32 




A51B 


85 


2D 




STA 


*2D 




A51D 


84 


2E 




STY 






A51F 


A4 


OB 




LDY 


*0B 




A521 


88 






DEY 






A522 


B9 


FC 


01 


LDA 


*01FC, 


Y 


A525 


91 


5F 




STA 


(*5F) , 


Y 


A527 


88 






DEY 






A528 


10 


F8 




BPL 


*A522 




A52A 


20 


59 


A6 


JSR 


*A659 




A52D 


20 


33 


A5 


JSR 


*A533 




A530 


4C 


80 


A4 


JMP 


*A480 






A533 


A5 


2B 




LDA 


*2B 




A535 


A4 


2C 




LDY 


*2C 




A537 


85 


22 




STA 


*22 




A539 


84 


23 




STY 


*23 




A53B 


18 






CLC 






A53C 


AO 


01 




LDY 


#*01 




A53E 


Bl 


22 




LDA 


(*22) , 


Y 


A540 


FO 


ID 




BEQ 


*A55F 





Insert program line 
CLR command 
tie new program line 
characters in buffer? 
no, then go to waiting—loop 



shift BASIC lines 



CLR command 

tie new program line 

Jump to waiting-loop 

Tie new BASIC program— line 



A-7 



A542 


AO 


04 




LDY 


»*04 




A544 


C8 






I NY 






A545 


Bl 


22 




LDA 


(*22) ,Y 




A547 


DO 


FB 




BNE 


*A544 




A549 


C8 






I NY 






A54A 


98 






TYA 






A54B 


65 


22 




ADC 


*22 




A54D 


AA 






TAX 






A54E 


AO 


00 




LDY 


#^00 




A550 


91 


22 




STA 


<*22) ,Y 




A552 


A5 


23 




LDA 


*23 




A554 


69 


OO 




ADC 


#*00 




A556 


C8 






I NY 






A557 


91 


22 




STA 


(*22) ,Y 






86 


22 




STX 


*22 




A55B 


85 


23 




STA 


*23 




A55D 


90 


DD 




BCC 


^A53C 




A55F 


60 






RTS 






***************************** 


Input a new line 


A560 


A2 


00 




LDX 


#*00 




A562 


20 


12 


El 


JSR 


*E112 


get a character 


A565 


C9 


OD 




CMP 


#$0D 


RETURN key? 


A567 


FO 


OD 




BEQ 


*A576 


yes, end input 


A569 


9D 


00 


02 


STA 


$0200, X 


store character in bu-f-fer 


A56C 


E8 






INX 




89 'th character? 


A56D 


EO 


59 




CPX 


#*59 


no, get next character 


A56F 


90 


Fl 




BCC 


$A562 


# for "string too long" 


A571 


A2 


17 




LDX 


#*17 


out-put error message 


A573 


4C 


37 


A4 


JMP 


*A437 


■finish buffer with *00, 


A576 


4C 


CA 


AA 


JMP 


*AACA 


out— put carriage return 


***************************** 


Change line to interpreter 


A579 


6C 


04 


03 


JMP 


(*0304) 


JMP *A57C code 


A57C 


A6 


7A 




LDX 


$7A 




A57E 


AO 


04 




LDY 


#*04 




A580 


84 


OF 




STY 


*0F 


flag for interpreted comma 


A582 


BD 


00 


02 


LDA 


*0200 , X 


get character from buffer 


A585 


10 


07 




BPL 


*A58E 


no basic code? 


A587 


C9 


FF 




CMP 


#*FF 


check for Pi code ? 


A589 


FO 


3E 




BEQ 


*A5C9 




A58B 


E8 






INX 






A58C 


DO 


F4 




BNE 


*A582 




A58E 


C9 


20 




CMP 


#*20 


empty character " " 


A590 


FO 


37 




BEQ 


*A5C9 




A592 


85 


08 




STA 


*08 




A594 


C9 


22 




CMP 


#*22 


interpreted comma 


A596 


FO 


56 




BEQ 


*A5EE 


A598 


24 


OF 




BIT 


$0F 




A59A 


70 


2D 




BVS 


*A5C9 




A59C 


C9 


3F 




CMP 


#*3F 


question mark "?" 


A59E 


DO 


04 




BNE 


*A5A4 


A5AO 


A9 


99 




LDA 


#*:99 


substitute with code for 


A5A2 


DO 


25 




BNE 


*A5C9 


PRINT 


A5A4 


C9 


30 




CMP 


#*30 


check for zero "O" 


A5A6 


90 


04 




BCC 


*A5AC 


smaller? 



A5A8 


C9 


3C 




CMP 


#*3C 




A5AA 


90 


ID 




BCC 


*A5C9 




A5AC 


84 


71 




STY 


*71 




A5AE 


AO 


00 




LDY 


#*00 




A5B0 


84 


OB 




STY 


$0B 




A5B2 


88 






DEY 






A5B3 


86 


7A 




STX 


*7A 




A5B5 


CA 






DEX 






A5B6 


C8 






I NY 






A5B7 


E8 






INX 






A5B8 


BD 


OO 


02 


LDA 


*0200, 


,x 


A5BB 


38 






SEC 






A5BC 


F9 


9E 


AO 


SBC 


*A09E, 


Y 


A5BF 


FO 


F5 




BEQ 


$A5B6 




A5C1 


C9 


80 




CMP 


#*80 




A5C3 


DO 


30 




BNE 


*A5F5 




A5C5 


05 


OB 




ORA 


*0B 




A5C7 


A4 


71 




LDY 


*71 




A5C9 


E8 






INX 






A5CA 


C8 






I NY 






A5CB 


99 


FB 


Ol 


STA 


*01FB, 


Y 


A5CE 


B9 


FB 


01 


LDA 


*01FB, 


Y 


A5D1 


FO 


36 




BEQ 


*A609 




A5D3 


38 






SEC 






A5D4 


E9 


3A 




SBC 


#*3A 




A5D6 


FO 


04 




BEQ 


*A5DC 




A5D8 


C9 


49 




CMP 


»*49 




A5DA 


DO 


02 




BNE 


*A5DE 




A5DC 


85 


OF 




STA 


*0F 




A5DE 


38 






SEC 






A5DF 


E9 


55 




SBC 


#*55 




A5E1 


DO 


9F 




BNE 


*A582 




A5E3 


85 


08 




STA 


*08 




A5E5 


BD 


00 


02 


LDA 


*0200, 


x 


A5E8 


FO 


DF 




BEQ 


*A5C9 




A5EA 


C5 


08 




CMP 


*08 




A5EC 


FO 


DB 




BEQ 


$A5C9 




A5EE 


C8 






I NY 






A5EF 


99 


FB 


01 


STA 


*01FB, 


Y 


A5F2 


E8 






INX 






A5F3 


DO 


FO 




BNE 


*A5E5 




A5F5 


A6 


7A 




LDX 


*7A 




A5F7 


E6 


OB 




INC 


$0B 




A5F9 


C8 






I NY 






A5FA 


B9 


9D 


AO 


LDA 


^^A09D , 


Y 


A5FD 


10 


FA 




BPL 


*A5F9 




A5FF 


B9 


9E 


AO 


LDA 


*A09E- 


Y 


A602 


DO 


B4 




BNE 


$A5B8 




A604 


BD 


00 


02 


LDA 


*0200, 


X 


A607 


10 


BE 




BPL 


*A5C7 




A609 


99 


FD 


01 


STA 


*01FD, 


Y 


A60C 


C6 


7B 




DEC 


*7B 




A60E 


A9 


FF 




LDA 


#*FF 




A610 


85 


7A 




STA 


*7A 




A612 


60 






RTS 







character in buf-fer 

compare with BASIC-word 
list 



found, code is even 
counter +*80 



save BASIC-code 

and get status register 

finish, then done 

check for color "s" 
division marks? 
DATA code? 



REM code? 



compare with listing 



set buffer pointer to -1 



A-9 



***************************** Calculate start address o-f 



A613 


A5 


2B 


LDA 


*2B 


1 i ne 


A615 


A6 


2C 


LDX 


*2C 


pointer to start o-f program 


A617 


AO 


01 


LDY 


#*01 




A619 


85 


5F 


STA 


*5F 




A61B 


86 


60 


STX 


*60 




A61D 


Bl 


5F 


LDA 


(*5F) ,Y 


link-address high 


A61F 


FO 


IF 


BEQ 


*A640 


even 0, then -finish, 


A621 


C8 




I NY 




not found 


A622 


C8 




I NY 






A623 


A5 


15 


LDA 


$15 


seeked line— number high 


A625 


Dl 


5F 


CMP 


(*5F) ,Y 


compare with present one 


A627 


90 


18 


BCC 


*A641 


smaller then not -found 


A629 


FO 


03 


BEQ 


*A62E 


even then check number low 


A62B 


88 




DEY 






A62C 


DO 


09 


BNE 


*A637 


inevitable jump 


A62E 


A5 


14 


LDA 


$14 




A630 


88 




DEY 




compare line — number low 


A631 


Dl 


5F 


CMP 


(*5F) ,Y 


A633 


90 


OC 


BCC 


*A641 


smal ler 


A635 


FO 


OA 


BEQ 


$A641 


or even C=l 


A637 


88 




DEY 






A638 


Bl 


5F 


LDA 


($5F) ,Y 




A63A 


AA 




TAX 








pp 
oo 




DEY 




address of next line 


A63C 


Bl 


5F 


LDA 


(*5F) ,Y 




A63E 


BO 


D7 


BCS 


*A617 


keep searching 


A640 


18 




CLC 






A641 


60 




RTS 






***************************** 


BASIC-NEW comman 


A642 


DO 


FD 


BNE 


$A641 




A644 


A9 


00 


LDA 


#$00 




A646 


A8 




TAY 






A647 


91 


2B 


STA 


($2B) ,Y 




A649 


C8 




I NY 




$00 twice at program start 


A64A 


91 


2B 


STA 


($2B) ,Y 




A64C 


A5 


2B 


LDA 


$2B 




A64E 


18 




CLC 






A64F 


69 


02 


ADC 


#$02 




A651 


85 


2D 


STA 


$2D 


variable-start = program- 


A653 


A5 


2C 


LDA 


$2C 


start + 2 


A655 


69 


00 


ADC 


#$00 




A657 


85 


2E 


STA 


$2E 




A659 


20 


8E 


A6 JSR 


$A68E 


CHRGET pointer to program 


A65C 


A9 


00 


LDA 


#$00 


start 


***************************** 


BABIC-CLR command 


A65E 


DO 


2D 


BNE 


$A68D 




A660 


20 


E7 


FF JSR 


$FFE7 


CLALL close all I/O channels 


A663 


A5 


37 


LDA 


$37 




A665 


A4 


38 


LDY 


$38 




A667 


85 


33 


STA 


$33 


string start to BASIC-RAM 


A669 


84 


34 


STY 


$34 


f i ni sh 



A-10 



A66B 


A5 


2D 


LDA 


*2D 




A66D 


A4 


2E 


LDY 


*2E 




A66F 


85 


2F 


STA 


*2F 


vctr xc&uii.e TXnisn — Voir lclDJ.6 


A671 


84 


30 


STY 


*30 


start 


A673 


85 


31 


STA 


*31 




A675 


84 


32 


STY 


*32 




f\h77 


20 


ID 


A8 JSR 


$A8iD 


RESTORE command 


A67A 


A2 


19 


LDX 


#$19 




A67C 


86 


16 


STX 


$16 


set back string descriptor* 


A67E 


68 




PLA 




indexes 


A67F 


A8 




TAY 






A680 


68 




PLA 






A681 


A2 


FA 


LDX 


#*FA 




A683 


9A 




TXS 




initialize stack pointer 


A684 


48 




PHA 




A685 


98 




TYA 






A686 


48 




PHA 






A687 


A9 


00 


LDA 


#$00 




A689 


85 


3E 


STA 


$3E 


block CONT 


A68B 


85 


10 


STA 


$10 




A68D 


60 




RTS 







*******#************^(.******^(.* Program pointer to BASIC- 

A68E 18 CLC start 

A68F A5 2B LDA $2B 

A691 69 FF ADC #$FF BASIC-start 

A693 85 7A STA $7A 

A695 A5 2C LDA $2C 

A697 69 FF ADC #$FF minus 1 

A699 85 7B STA $7B 

A69B 60 RTS 



A69C 


90 


06 




BCC 


$A6A4 


A69E 


FO 


04 




BEQ 


$A6A4 


A6A0 


C9 


AB 




CMP 


#$AB 


A6A2 


DO 


E9 




BNE 


$A68D 


A6A4 


20 


6B 


A9 


JSR 


$A96B 


A6A7 


20 


13 


A6 


JSR 


$A613 


A6AA 


20 


79 


00 


JSR 


$0079 


A6AD 


FO 


OC 




BEQ 


$A6BB 


A6AF 


C9 


AB 




CMP 


#$AB 


A6Bi 


DO 


8E 




BNE 


$A641 


A6B3 


20 


73 


00 


JSR 


$0073 


A6B6 


20 


6B 


A9 


JSR 


$A96B 


A6B9 


DO 


86 




BNE 


$A641 


A6BB 


68 






PLA 




A6BC 


68 






PLA 




A6BD 


A5 


14 




LDA 


$14 


A6BF 


05 


15 




ORA 


$15 


A6C1 


DO 


06 




BNE 


$A6C9 


A6C3 


A9 


FF 




LDA 


#$FF 


A6C5 


85 


14 




STA 


$14 


A6C7 


85 


15 




STA 


$15 


A6C9 


AO 


01 




LDY 


#$01 


A6CB 


84 


OF 




STY 


$0F 



BASIC-LIST command 
sign? (line number) 
only list? 

code for "-" (through) 

di-f-f. code, SYNTAX ERROR 

get line number 

calculate start address of 

get last symbol line 

no line number? 

code -for "-" (through) 

no, SYNTAX ERROR 

get next symbol 

get line number 



is second line-number = O? 

no 



list to the end 



A- 11 



A6CD 


Bl 


5F 




LDA 


(*5F) , 


Y 


A6CF 


FO 


43 




BEQ 


*A714 




A6D1 


20 


2C 


A8 


JSR 


$A82C 




A6D4 


20 


D7 


AA 


JSR 


*AAD7 




A6D7 


C8 






I NY 






A6D8 


Bl 


5F 




LDA 


(*5F) , 


Y 


A6DA 


AA 






TAX 






A6DB 


C8 






I NY 






A6DC 


Bl 


5F 




LDA 


(*5F) , 


Y 


A6DE 


C5 


15 




CMP 


*15 




A6E0 


DO 


04 




BNE 


$A6E6 




A6E2 


E4 


14 




CPX 


*14 




A6E4 


FO 


02 




BEQ 


$A6E8 




A6E6 


BO 


2C 




BCS 


*A714 




A6E8 


84 


49 




STY 


$49 




A6EA 


20 


CD 


BD 


JSR 


$BDCD 




A6ED 


A9 


20 




LDA 


#*20 




A6EF 


A4 


49 




LDY 


*49 




A6F1 


29 


7F 




AND 


#*7F 




A6F3 


20 


47 


AB 


JSR 


*AB47 




A6F6 


C9 


22 




CMP 


#$:22 




A6F8 


DO 


06 




BNE 


*A700 




A6FA 


A5 


OF 




LDA 


*0F 




A6FC 


49 


FF 




EOR 


#*FF 




A6FE 


85 


OF 




STA 


*0F 




A700 


C8 






I NY 






A701 


FO 


11 




BEQ 


$A714 




A703 


Bl 


5F 




LDA 


(*5F) , 


Y 


A705 


DO 


10 




BNE 


*A717 




A707 


A8 






TAY 






A708 


Bl 


5F 




LDA 


(*5F> , 


Y 


A70A 


AA 






TAX 






A70B 


C8 






I NY 






A70C 


Bl 


5F 




LDA 


($5F) , 


Y 


A70E 


86 


5F 




STX 


*5F 




A710 


85 


60 




STA 


*60 




A712 


DO 


B5 




BNE 


*A6C9 




A714 


4C 


86 


E3 


JMP 


$E386 




*************************** 


A717 


6C 


06 


03 


JMP 


($0306) 


A71A 


10 


D7 




BPL 


*A6F3 




A71C 


C9 


FF 




CMP 


#*FF 




A71E 


FO 


D3 




BEQ 


*A6F3 




A720 


24 


OF 




BIT 


*0F 




A722 


30 


CF 




BMI 


*A6F3 




A724 


38 






SEC 






A725 


E9 


7F 




SBC 


#*7F 




A727 


AA 






TAX 






A728 


84 


49 




STY 


:$49 




A72A 


AO 


FF 




LDY 


#*FF 




A72C 


CA 






DEX 






A72D 


FO 


08 




BEQ 


$A737 




A72F 


C8 






I NY 






A730 


B9 


9E 


AC 


LDA 


*A09E 





link address high 
yes, ready 
check on stop key 
out-put <CR) , new line 



get line-number 



compare with end number 



bigger, then -finish 

out -put line number 
out-put " " (space) 



out— put character 

" ( II ) " i nver ted quote? 



turn inverted— comma -flag 

no line-end a-fter 255 

symbols, then stop 
get character 
no line-end, then list 



start address o-f next line 



save as pointer 
continue to BASIC 
WARM-START 

Change BASIC-CODE into clear 

text 

no interpreter code, just 
code -for Pi out-put 
Just out -put 
inverted comma mode? 
then just out -put symbol 

null off o-f -f -set code to X 

renumber character pointer 

■first command word? 



find off -set for command 



A-12 



A733 


lO 


FA 




BPL 


*A72F 


A735 


30 


F5 




BMI 


*A72C 


A737 


C8 






I NY 




A738 


B9 


9E 


AO 


LDA 


*A09E , Y 


A73B 


30 


B2 




BMI 


*A6EF 


A73D 


20 


47 


AB 


JSR 


$AB47 


A740 


DO 


F5 




BNE 


*A737 




A742 


A9 


80 




LDA 


#*80 


A744 


85 


10 




STA 


*10 


A746 


20 


A5 


A9 


JSR 


*A9A5 


A749 


20 


8A 


A3 


JSR 


$A38A 


A74C 


DO 


05 




BNE 


*A753 


A74E 


8A 






TXA 




A74F 


69 


OF 




ADC 


i!=*OF 


A751 


AA 






TAX 




A752 


9A 






TXS 




A753 


68 






PLA 




A754 


63 






PLA 




A 755 


A9 


09 




LDA 


#*09 


A757 


20 


FB 


A3 


JSR 


*A3FB 


A75A 


20 


06 


A9 


JSR 


*A906 


A75D 


18 






CLC 




A75E 


98 






TYA 




A75F 


65 


7A 




ADC 


$7 A 


A761 


48 






PHA 




A762 


A5 


7B 




I DA 


*7B 


A764 


69 


00 




ADC 


#*^00 


A766 


48 






PHA 




A76'"' 


A5 


3A 




LDA 




A769 


48 






PHA 




A76A 


A5 


39 




LDA 


*39 


A76C 


48 






PHA 




A76D 


A9 


A4 




LDA 


#*A4 


A76F 


20 


FF 


AE 


JSR 


*AEFF 


A772 


20 


8D 


AD 


JSR 


:^ADBD 


A775 


20 


8A 


AD 


JSR 


:^ADBA 


A778 


A5 


66 




LDA 


#66 


A77A 


09 


7F 




ORA 


#*7F 


A77C 


25 


62 




AND 


*62 


A77E 


85 


62 




STA 


*62 


A780 


A9 


8B 




LDA 


#$8B 


A782 


AO 


A7 




LDY 


#*A7 


A784 


85 


22 




STA 


*22 


A786 


84 


23 




STY 


$23 


A788 


4C 


43 


AE 


JMP 


*:AE43 


A7SB 


A9 


BC 




LDA 


#*BC 


A7BD 


AO 


B9 




LDY 


#*B9 


A7BF 


20 


A2 


BB 


JSR 


$BBA2 


A792 


20 


79 


OO 


JSR 


*0079 


A795 


C9 


A9 




CMP 


#*A9 


A797 


DO 


06 




BNE 


*A79F 


A799 


20 


73 


00 


JSR 


$0073 


A79C 


20 


8A 


AD 


JSR 


$AD8A 



word 

bit /set, next Mord 

get command word -from list 
last letter, then finished 
out-put character 
out-put next letter 

BASIC-FOR command 
block integer 

LET sets FOR variable 
searches for loop name the 
not -Found same name 

increase stack-pointer 



get return address from 

stack 

checks on space in stack 
searches for next BASIC- 

statement 
program pointer to next 

command 
and save on stack 



running line number on 
stack 

"TO" code 
checks on code 
numeric variable? 
gets number from FAC 



save return address 



put loop-end variable on 
stack 

points to constant as 

default-STEP value in FAC 

get last character 

"STEP" code 

no step value 

get next character 

gets number from FAC 



A-13 



A79F 


20 


2B 


BC 


JSR 


*BC2B 


get signs 


A7A2 


20 


38 


AE 


JSR 


*AE38 


put signs and STEP value 


A7A5 


A5 


4A 




LDA 


*4A 


on stack 




48 






PHA 




variable-name 


A7A8 


A5 


49 




LDA 


*49 




A7AA 


48 






PHA 






A7AB 


A9 


81 




LDA 


#*81 


and FOR code on stack 


A7AD 


48 






PHA 







***************************** Intpreter loop 



A7AE 


20 


2C 


A8 


JSR 


*A82C 




checks on stop key 


A7B1 


A5 


7A 




LDA 


*7A 






A7B3 


A4 


7B 




LDY 


*7B 




program pointer 


A7B5 


CO 


02 




CPY 


#*02 




direct mode? 


A7B7 


EA 






NOP 








A7B8 


FO 


04 




BEQ 


*A7BE 




yes 


A7BA 


85 


3D 




STA 


*3D 




save pointer for CONT 


A7BC 


84 


3E 




STY 


$3E 






A7BE 


AO 


00 




LDY 


#*00 






A7C0 


Bl 


7A 




LDA 


(4:7A) , 


Y 


running character 


A7C2 


DO 


43 




BNE 


*A807 




7 not end of line? 


A7C4 


AO 


02 




LDY 


#*02 






A7C6 


Bl 


7A 




LDA 


(*7A) , 


Y 


end of program 


A7C8 


18 






CLC 






set flag for END 


A7C9 


DO 


03 




BNE 


$A7CE 






A7CB 


4C 


4B 


A8 


JMP 


*A84B 




yes, then execute END 


A7CE 


C8 






I NY 








A7CF 


Bl 


7A 




LDA 


(*7A) , 


Y 




A7D1 


85 


39 




STA 


*39 






A7D3 


C8 






I NY 






save running line # 


A7D4 


Bl 


7A 




LDA 


(*7A) , 


Y 




A7D6 


85 


3A 




STA 


*3A 






A7D8 


98 






TYA 








A7D9 


65 


7A 




ADC 


*7A 




set program pointer to lint 


A7DB 


85 


7A 




STA 


*7A 






A7DD 


90 


02 




BCC 


*A7E1 






A7DF 


E6 


7B 




INC 


*7B 






A7E1 


6C 


08 


03 


JMP 


(*0308) 


execute BASIC statement 


A7E4 


20 


73 


00 


JSR 


*0073 




get next character 


A7E7 


20 


ED 


A7 


JSR 


*A7ED 




execute statement 


A7EA 


4C 


AE 


A7 


JMP 


*A7AE 




back to interpreter loop 


***************************** 


Execute BASIC statement 


A7ED 


FO 


3C 




BEQ 


*A82B 




end of line, then end 


A7EF 


E9 


80 




SBC 


#*80 




token? 


A7F1 


90 


11 




BCC 


*A804 




no, goto LET command 


A7F3 


C9 


23 




CMP 


#*23 






A7F5 


BO 


17 




BCS 


*A80E 




function token or GOTO 


A7F7 


OA 






ASL 






BASIC-command code times 2 


A7F8 


A8 






TAY 








A7F9 


B9 


OD 


AO 


LDA 


$AOOD, 


Y 




A7FC 


48 






PHA 






get command address from 


A7FD 


B9 


OC 


AO 


LDA 


*AOOC , 


Y 


1 isting 


A800 


48 






PHA 






as return address on stack 



A-14 



A801 


4C 


73 


00 


JMP 


*0073 


next character and execute 


A804 


4C 


A5 


A9 


JMP 


*A9A5 


to LET command command 






A807 


C9 


3A 




CMP 


#*3A 


li J II 


A809 


FO 


D6 




BEQ 


*A7E1 




A80B 


4C 


08 


AF 


JMP 


$AF08 


"syntax error" 




Checks on "GO" "TO" code 


A80E 


C9 


4B 




CMP 


#*4B 


"GO" (nimus *80) 


A810 


DO 


F9 




BNE 


$A80B 




A812 


20 


73 


00 


JSR 


*0073 


gets next character 


A815 


A9 


A4 




LDA 


#*A4 


"TO" 


A817 


20 


FF 


AE 


JSR 


*AEFF 


checks on code 


A81A 


4C 


AO 


A8 


JMP 


*A8A0 


to GOTO command 




BASIC— RESTORE command 


A81D 


38 






SEC 






A81E 


A5 


2B 




LDA 


*2B 




A820 


E9 


01 




SBC 


#*01 


program start -1 


A822 


A4 


2C 




LDY 


*2C 




A824 


BO 


01 




BCS 


$A827 




A826 


88 






DEY 






A827 


85 


41 




STA 


$41 




AB29 


84 


42 




STY 


$42 


current DATA address 


A82B 


60 






RTS 






***************************** 


Checks on stop— key 


A82C 


20 


El 


FF 


JSR 


*FFE1 


checks stop— key 


***************************** 


BASIC-STOP command 


A82F 


BO 


01 




BCS 


*A832 


set STOP -flag to 1 (C=l) 


***************************** 


BASIC-END command 


A831 


18 






CLC 




set END -flag to (C=0) 


A832 


DO 


3C 




BNE 


*A870 




A834 


A5 


7A 




LDA 


*7A 




A836 


A4 


7B 




LDY 


*7B 


program pointer 


A838 


A6 


3A 




LDX 


*3A 


direct mode? 


A83A 


E8 






INX 






A83B 


FO 


OC 




BEQ 


*A849 


yes 


A83D 


85 


3D 




STA 


*3D 


AS3F 


84 


3E 




STY 


$3E 


set pointer -for CONT 


A841 


A5 


39 




LDA 


*39 




A843 


A4 


3A 




LDY 


$3A 


curent line number 


A845 


85 


3B 




STA 


$3B 




A847 


84 


3C 




STY 


*3C 


store -for CONT 


AS49 


68 






PLA 






A84A 


68 






PLA 




get return address from 


A84B 


A9 


81 




LDA 


#*81 


stack 


A84D 


AO 


A3 




LDY 


#$A3 


set pointer to "BREAK" 


A84F 


90 


03 




BCC 


*A854 


"END" -flag? 


A851 


4C 


69 


A4 


JMP 


*A469 


no, out-put "BREAK IN XXX" 


A854 


4C 


86 


E3 


JMP 


*E386 


to BASIC warm-start 



A-15 



***************************** 



A857 


DO 


17 


BNE 


*A870 


A859 


A2 


lA 


LDX 


#$1A 


A85B 


A4 


3E 


LDY 


*3E 


A85D 


DO 


03 


BNE 


$A862 


A85F 


4C 


37 A4 


JMP 


*A437 


A862 


A5 


3D 


LDA 


*3D 


A864 


85 


7A 


STA 


*7A 


A866 


84 


7B 


STY 


$7B 


A868 


A5 


3B 


LDA 


$3B 


A86A 


A4 


3C 


LDY 


*3C 


A86C 


85 


39 


STA 


$39 


A86E 


84 


3A 


STY 


*3A 


A870 


60 




RTS 





BASIC-CONT command 

error # for "CAN'T CONT. " 

CONT blocked? 

no 

out-put error message 

program pointer 

and 

set line number 



***************************** BASIC-RUN command 



A871 


08 






PHP 






A872 


A9 


00 




LDA 


#*00 




A874 


20 


90 


FF 


JSR 


*FF90 


set "flag -for program mode 


A877 


28 






PLP 






A878 


DO 


03 




BNE 


*A87D 


•find line number 


A87A 


4C 


59 


A6 


JMP 


*A659 


program pointer to start, 


A87D 


20 


60 


A6 


JSR 


$A660 


CLR command CLR 


A880 


4C 


97 


A8 


JMP 


*A897 


GOTO command 


***************************** 


BASIC-GOSUB command 


A883 


A9 


03 




LDA 


#*03 




A885 


20 


FB 


A3 


JSR 


*A3FB 


check on stack space 


A888 


A5 


7B 




LDA 


*7B 




A88A 


48 






PHA 




save program pointer 


A88B 


A5 


7A 




LDA 


*7A 




A88D 


48 






PHA 






A88E 


A5 


3A 




LDA 


*3A 




A890 


48 






PHA 




and line number 


A891 


A5 


39 




LDA 


*39 




A893 


48 






PHA 






A894 


A9 


8D 




LDA 


#*8D 


"GOSUB" code on stack 


A896 


48 






PHA 






A897 


20 


79 


OO 


JSR 


*0079 


CHRGOT get last character 


A89A 


20 


AO 


AS 


JSR 


*A8A0 


GOTO command 


A89D 


4C 


AE 


A7 


JMP 


*A7AE 


to interpreter loop 


***************************#* 


BASIC-GOTO command 


ABAO 


20 


6B 


A9 


JSR 


*A96B 


get line number in $14/$i5 


A8A3 


20 


09 


A9 


JSR 


*A909 


look -for next line-start 


A8A6 


38 






SEC 






A8A7 


A5 


39 




LDA 


*39 




A8A9 


E5 


14 




SBC 


*14 


is new line # smaller than 


A8AB 


A5 


3A 




LDA 


*3A 


current line #? 


ASAD 


E5 


15 




SBC 


*15 




ASAF 


BO 


OB 




BCS 


*A8BC 


no 


A8B1 


98 






TYA 






A8B2 


38 






SEC 






ABB3 


65 


7A 




ADC 


*7A 




A8B5 


A6 


7B 




LDX 


*7B 


searches, stating -from 



A-16 



ABB7 


90 


07 




BCC 


^ABCO 


L_ Ur r tri 1 1_ X i. 1 1 tir tt 


A8B9 


E8 






INX 






A8BA 


BO 


04 




BCS 


*A8C0 




A8BC 


A5 


2B 




LDA 


$2B 


C- -J r-~ J— 1 ^— 1 r— JC, »r- f-^ rr\ T~\ v- i — ^ <— ■ v— ^ fn 

rifcrcJr l—llfcr^ T r LJIIi pjr vJ^r olill 


ABBE 


A£> 


2C 




LDX 


$:2C 


start 


A8C0 


20 


17 


A6 


JSR 


*A617 


r~ r-^ -Ti |r- r— |— ^ f-% < — r-\ |i— r-\ r-i rx\ \ *l r~\ I — i 

=>trcir i_ilcrr} |_ir LJ^i 4^111 X X 1 1 cr 


A8C3 


90 






BCC 




nou TOLinuf u.nBn uwucir u 


A8C5 


A5 


5F 




LDA 


$^5F 


stsktement 


A8C7 


E9 


01 




SBC 


#$01 




A8C9 


85 


7A 




BTA 


$7A 


set program pointer to new 


A8CB 


A5 


60 




LDA 


*60 


1 ine 


A8CD 


E9 


00 




SBC 


#$00 




A8CF 


85 


7B 




STA 


*7B 




A8D1 


60 






RTS 








BASIC— RETURN command 


A8D2 


DO 


FD 




BNE 


$:A8D1 




A8D4 


A9 


FF 




LDA 


#*FF 




A8D6 


85 


4A 




STA 


*4A 




A8D8 


20 


8A 


A3 


JSR 


*A38A 


•find next GOSUB data set 


A8DB 


9A 






TXS 






A8DC 


C9 


8D 




CMP 


#$8D 


GOSUB code 


A8DE 


FO 


OB 




BEQ 


*A8EB 


found? 


A8E0 


A2 


OC 




LDX 


#*0C 


tt-for "RETURN WITHOUT GOSUB" 


A8E2 


2C 


A2 


11 


BIT 


*11A2 




ABES 


4C 


37 


A4 


JMP 


*A437 


# -for "UNDEF'D STATEMENT" 


ABES 


4C 


08 


AF 


JMP 


*AF08 




A8EB 


68 






PLA 




out-put "SYNTAX ERROR" 


A8EC 


68 






PLA 






ABED 


85 


39 




STA 


$39 




A8EF 


68 






PLA 






A8F0 


85 


3A 




STA 


*3A 


get line number -from stack 


A8F2 


68 






PLA 






AaF3 


85 


7A 




STA 


*7A 




ABF5 


68 






PLA 






A8F6 


85 


7B 




STA 


*7B 


get program pointer "from 














stack 




BASIC— DATA and REM commands 


A8F8 


20 


06 


A9 


JSR 


*A906 


search -for next statement 


A8FB 


98 






TYA 




o-f -fset 


A8FC 


18 






CLC 






A8FD 


65 


7A 




ADC 


*7A 




A8FF 


85 


7A 




STA 


*7A 




A901 


90 


02 




BCC 


*A905 


add to program pointer 


A903 


E6 


7B 




INC 


*7B 




A905 


60 






RTS 






i( ->^*-^^^*}^****#*********i^■•^^•*•^^•**^(■ 


Find offset of next "=" 


A906 


A2 


3A 




LDX 


#*3A 


" : " col or 


A90a 


2C 


A2 


00 


BIT 


$00A2 




A90B 


86 


07 




STX 


*07 


end of line 


A90D 


AO 


00 




LDY 


#*--oo 




A90F 


84 


08 




STY 


*08 


y contains offset 



A-17 



A911 


A5 


08 




LDA 


*08 




A913 


A6 


07 




LDX 


*07 


desired character 


A915 


85 


07 




STA 


*07 




A917 


86 


08 




STX 


*08 




A919 


Bl 


7A 




LDA 


(*7A) ,Y 


get character 


A91B 


FO 


E8 




BEQ 


*A905 


end Q-f line, then done 


A91D 


C5 


08 




CMP 


*08 




A91F 


FO 


E4 




BEQ 


*A905 




A921 


C8 






I NY 




increase pointer 


A922 


C9 


22 




CMP 


#*22 


inverted comma 


A924 


DO 


F3 




BNE 


$A919 




A926 


FO 


E9 




BEQ 


*A911 






BASIC-IF command 


A928 


20 


9E 


AD 


JSR 


$AD9E 


calculate expression 


A92B 


20 


79 


00 


JSR 


*0079 


last character 


A92E 


C9 


89 




CMP 


tt*89 


"GOTO" code 


A930 


FO 


05 




BEQ 


*A937 


yes 


A932 


A9 


A7 




LDA 


#*A7 


"THEN" code 


A934 


20 


FF 


AE 


JSR 


*AEFF 


result o-F IF-term 


A937 


A5 


61 




LDA 


*61 


ei<pression true? 


A939 


DO 


05 




BNE 


*A940 


no, look for next new line 


A93B 


20 


09 


A9 


JSR 


$A909 


program pointer to next new 


A93E 


FO 


BB 




BEQ 


$A8FB 


get last character line 


A940 


20 


79 


00 


JSR 


*0079 


no digit? 


A943 


BO 


03 




BCS 


*A948 


to GOTO command 


A945 


4C 


AO 


A8 


JMP 


*A8A0 


decode next command and 


A948 


4C 


ED 


A7 


J MP 


4:A7ED 


execute 


***************************** 


BASIC-ON command 


A94B 


20 


9E 


B7 


JSR 


$B79E 


get byte values (0-255) 


A94E 


48 






PHA 




save code 


A94F 


C9 


8D 




CMP 


#*8D 


"GOSUB" code 


A951 


FO 


04 




BEQ 


*A957 


yes 


A953 


C9 


89 




CMP 


#*89 


"GOTO" code 


A955 


DO 


91 




BNE 


^A8E8 


no then "SYNTAX ERROR" 


A957 


C6 


65 




DEC 


*65 


decrease pointer 


A959 


DO 


04 




BNE 


*A95F 


not zero yet? 


A95B 


68 






PLA 




yes, get back code and 


A95C 


4C 


EF 


A7 


JMP 


:*A7EF 


execute command 


A95F 


20 


73 


00 


JSR 


*0073 


get next character 


A962 


20 


6B 


A9 


JSR 


*A96B 


get line number 


A965 


C9 


2C 




CMP 


#*2C 


" , " comma? 


A967 


FO 


EE 




BEQ 


$A957 


yes, then continue 


A969 


68 






PLA 




no, get return code, done 


A96A 


60 






RTS 







A-18 



*************************♦#** Gets line # and converts 



A96B 


A2 


00 




LDX 


#*00 


it to address -format 


A96D 


86 


14 




STX 


*14 




A96F 


86 


15 




STX 


*15 


prc-filling of line # = 


A971 


BO 


F7 




BCS 


*A96A 


resulting address o-f the 


A973 


E9 


2F 




SBC 


#*2F 


line is in $16/^15 


A975 


85 


07 




STA 


*07 




A977 


A5 


15 




LDA 


*15 




A979 


85 


22 




STA 


*22 




A97B 


C9 


19 




CMP 


#*19 




A97D 


BO 


D4 




BCS 


*A953 




A97F 


A5 


14 




LDA 


$14 




A981 


OA 






ASL 






A982 


26 


22 




ROL 


*22 




A984 


OA 






ASL 






A985 


26 


22 




ROL 


$22 




A987 


65 


14 




ADC 


*14 




A989 


85 


14 




STA 


*14 




A98B 


A5 


22 




LDA 


*22 




A98D 


65 


15 




ADC 


*15 




A98F 


85 


15 




STA 


*15 




A991 


06 


14 




ASL 


*14 




A993 


26 


15 




ROL 


*15 




A995 


A5 


14 




LDA 


*14 




A997 


65 


07 




ADC 


*07 






oD 






STA 


^14 




A99B 


90 


02 




BCC 


*A99F 




A99D 


E6 


15 




INC 


*15 




A99F 


20 


73 


00 


JSR 


*0073 


CHRGET get next character 


A9A2 


4C 


71 


A9 


JMP 


*A971 


for evaluation 


***************************** 


BASIC-LET statement 


A9A5 


20 


8B 


BO 


JSR 


*B08B 


looks -for variable 


A9A8 


85 


49 




STA 


$49 




A9AA 


84 


4A 




STY 


*4A 


save variable address 


A9AC 


A9 


B2 




LDA 


#*B2 


code 


A9AE 


20 


FF 


AE 


JSR 


*AEFF 


checks on code 


A9B1 


A5 


OE 




LDA 


*0E 


save integer -flag 


A9B3 


48 






PHA 






A9B4 


A5 


OD 




LDA 


*0D 


and type flag (l=string> 


A9B6 


48 






PHA 






A9B7 


20 


9E 


AD 


JSR 


*AD9E 


get term 


A9BA 


68 






PLA 






A9BB 


2A 






ROL 




gex. uacK uype t jl eig 


A9BC 


20 


90 


AD 


JSR 


*AD90 


and check on correct type 


A9BF 


DO 


18 




BNE 


*A9D9 




A9C1 


68 






PLA 






A9C2 


10 


12 




BPL 


*A9D6 


read? 


***************************** 


Value assignment INTEGER 


A9C4 


20 


IB 


BC 


JSR 


$:BC1B 


round FAC 


A9C7 


20 


BF 


Bl 


JSR 


*B1BF 


and change to integer 


A9CA 


AO 


00 




LDY 


#*00 




A9CC 


A5 


64 




LDA 


*64 




A9CE 


91 


49 




STA 


(1:49) ,Y 


bring value into variable 



A-19 



A9D0 C8 

A9D1 A5 65 

A9D3 91 49 

A9D5 60 



I NY 

LDA *65 
STA (*49),Y 
RTS 



AQDA AC. nCi RR .IMP *RRnO 

A9D9 68 PLA 

A4 4A LDY ^4A 
CO BF CPY #^BF 
DO 4C BNE *AA2C 
20 A6 B6 JSR *B6A6 



A9DA 
A9DC 
A9DE 
A9E0 
A9E3 
A9E5 
A9E7 
A9E9 
A9EB 
A9ED 
A9EF 
A9F2 
A9F5 
A9F7 
A9F9 
A9FC 
A9FF 
AAOO 
AA02 
AA03 
AA04 
AA07 
AA09 
AAOA 
AAOC 
AAOE 
AAll 
AA14 
AA16 
AA18 
AAIA 



C9 06 
DO 3D 
AO 00 
84 61 
84 66 
84 71 



CMP #*06 
BNE *AA24 
LDY #*00 
STY *61 
STY *66 
STY *71 



20 ID AA JSR *AA1D 
20 E2 BA JSR *BAE2 
E6 71 INC *71 

A4 71 LDY *71 
20 ID AA JSR *AA1D 
20 OC BC JSR *BCOC 
AA TAX 
FO 05 BEQ *AA07 
E8 INX 
8A TXA 
20 ED BA JSR *BAED 
A4 71 LDY *71 
C8 I NY 

CO 06 CPY »*06 
DO DF BNE *A9ED 
20 E2 BA JSR *BAE2 
20 9B BC JSR *BC9B 
A6 64 LDX *64 
A4 63 LDY *63 
A5 65 LDA *65 
4C DB FF JMP *FFDB 



AAID Bl 22 LDA (*22) ,Y 

AAIF 20 80 00 JSR *0080 

AA22 90 03 BCC *AA27 

AA24 4C 48 B2 JMP *B248 

AA27 E9 2F SBC #*2F 

AA29 4C 7E BD JMP *BD7E 
***************************** 



AA2C 
AA2E 
AA30 
AA32 
AA34 
AA36 
AA37 
AA39 



AO 02 
Bl 64 
C5 34 
90 17 
DO 07 
88 

Bl 64 

C5 33 



LDY #*02 
LDA (*64),Y 
CMP *34 
BCC :^AA4B 
BNE *AA3D 
DEY 

LDA (*64),Y 

CMP *33 



VAlue assignment REAL 

bring FAC to variable 
Value assignment string 

variable address high 

is variable TI*? 

no 

FRESTR 

string length = 6 
no, "illegal quality" 



checks next number 
FAC = FAC * 10 
increase digit counter 

checks next number 
copy FAC to ARG 



FAC 



07 



FAC = FAC + ARG 
increase digit counter 

6 digits yet? 

FAC = FAC * 10 

make FAC right-binding 

time that was put in 

set t i me 

Check number 
check number 



"ILLEGAL QUANTITY" 
change -from ASCII to hex 
trans-fer into FAC and ARG 
Value assignment to normal 
str i ng 

string address high 
compare with string start 
smaller, string is stored 
within the program space 

string address low 
compare 



A-20 



string is in the program 



AA3B 


90 


OE 




BCC 


$AA4B 


space 


AA3D 


A4 


65 




LDY 


$65 




AA3F 


C4 


2E 




CPY 


*2E 




AA41 


90 


08 




BCC 


$AA4B 




AA43 


DO 


OD 




BNE 


$AA52 




AA45 


A5 


64 




LDA 


$64 




AA47 


C5 


2D 




CMP 


*2D 




AA49 


BO 


07 




BCS 


*AA52 




AA4B 


A5 


64 




LDA 


$64 




AA4D 


A4 


65 




LDY 


$65 




AA4F 


4C 


68 


AA 


JMP 


$AA68 




AA52 


AO 


00 




LDY 


#$00 




AA54 


Bl 


64 




LDA 


($64) ,Y 


length o-f string 


AA56 


20 


75 


B4 


JSR 


$B475 


checks memory space, sets 


AA59 


A5 


50 




LDA 


$50 


string pointer 


AA5B 


A4 


51 




LDY 


$51 




AA5D 


85 


6F 




STA 


$6F 




AA5F 


84 


70 




STY 


$70 




AA61 


20 


7A 


B6 


JSR 


$B67A 


transfer string into 


AA64 


A9 


61 




LDA 


«$61 


string range 


AA66 


AO 


00 




LDY 


#$00 




AA68 


85 


50 




STA 


$50 




AA6A 


84 


51 




STY 


$51 




AA6C 


20 


DB 


B6 


JSR 


$B6DB 


clear descriptor from 


AA6F 


AO 


00 




LDY 


#$00 


string stack 


AA71 


Bl 


50 




LDA 


($50) ,Y 


length 


AA73 


91 


49 




STA 


($49) ,Y 




AA75 


C8 






I NY 






AA76 


Bl 


50 




LDA 


($50) ,Y 


address Iom 


AA78 


91 


49 




STA 


($49) ,Y 




AA7A 


C8 






I NY 






AA7B 


Bl 


50 




LDA 


($50) ,Y 


and address high 


AA7D 


91 


49 




STA 


($49) ,Y 


bring into variable 


AA7F 


60 






RTS 







******ii'*it***^*^**-tt****^****^ih BASIC~PRINT# command 
AA80 20 86 AA JSR $AA86 CMD command 

AA83 4C B5 AB JMP $ABB5 to PRINT command 



***********it*-n^******ii-tt^#ii-****ii^ BASIC-CMD command 



AA86 


20 


9E 


B7 


JSR 


$B79E 


gets byte expression 


AA89 


FO 


05 




BEQ 


$AA90 




AA8B 


A9 


2C 




LDA 


#$2C 


II II 


AA8D 


20 


FF 


AE 


JSR 


$AEFF 


checks on comma 


AA90 


08 






PHP 






AA91 


86 


13 




STX 


$13 


save out-put devices 


AA93 


20 


18 


El 


JSR 


$E118 


set out—put device 


AA96 


28 






PLP 






AA97 


4C 


AO 


AA 


JMP 


$AAAO 




AA9A 


20 


21 


AB 


JSR 


$AB21 


print string 


AA9D 


20 


79 


00 


JSR 


$0079 


last character 



BASIC-PRINT command 

AAAO FO 35 BEQ $AAD7 



A-21 



AAA2 


FO 


43 




BEQ 


*AAE7 


AAA4 


C9 


A3 




CMP 


#$A3 


AAA6 


FO 


50 




BEQ 


$AAF8 


AAA8 


C9 


A6 




CMP 


#$A6 


AAAA 


18 






CLC 




AAAB 


FO 


4B 




BEQ 


$AAF8 


AAAD 


C9 


2C 




CMP 


#*2C 


AAAF 


FO 


37 




BEQ 


$AAE8 


AABl 


C9 


3B 




CMP 


#*3B 


AAB3 


FO 


5E 




BEQ 


$AB13 


AAB5 


20 


9E 


AD 


JSR 


*AD9E 


AAB8 


24 


OD 




BIT 


$0D 


AABA 


30 


DE 




BMI 


*AA9A 


AABC 


20 


DD 


BD 


JSR 


^BDDD 


AABF 


20 


87 


B4 


JSR 


*B487 


AAC2 


20 


21 


AB 


JSR 


$AB21 


AAC5 


20 


3B 


AB 


JSR 


*AB3B 


AAC8 


DO 


D3 




BNE 


$AA9D 


AACA 


A9 


00 




LDA 


#4:00 


AACC 


9D 


00 


02 


STA 


*0200 , X 


AACF 


A2 


FF 




LDX 


#*FF 


AADl 


AO 


01 




LDY 


#$01 


AAD3 


A5 


13 




LDA 


*13 


AAD5 


DO 


10 




BNE 


*AAE7 


AAD7 


A9 


OD 




LDA 


#*0D 


AAD9 


20 


47 


AB 


JSR 


*AB47 


AADC 


24 


13 




BIT 


$13 


AADE 


10 


05 




BPL 


$AAE5 


AAEO 


A9 


OA 




LDA 


#$0A 


AAE2 


20 


47 


AB 


JSR 


*AB47 


AAE5 


49 


FF 




EOR 


#$FF 


AAE7 


60 






RTS 




AAE8 


38 






SEC 




AAE9 


20 


FO 


FF 


JSR 


*FFFO 


AAEC 


98 






TYA 




AAED 


38 






SEC 




AAEE 


E9 


OA 




SBC 


#$0A 


AAFO 


BO 


FC 




BCS 


$AAEE 


AAF2 


49 


FF 




EOR 


#$FF 


AAF4 


69 


01 




ADC 


#$01 


AAF6 


DO 


16 




BNE 


$ABOE 



***************************** 



AAF8 


08 






PHP 




AAF9 


38 






SEC 




AAFA 


20 


FO 


FF 


JSR 


$FFFO 


AAFD 


84 


09 




STY 


$09 


AAFF 


20 


9B 


B7 


JSR 


$B79B 


AB02 


C9 


29 




CMP 


#$29 


AB04 


DO 


59 




BNE 


$AB5F 


AB06 


28 






PLP 




AB07 


90 


06 




BCC 


$ABOF 


AB09 


8A 






TXA 




ABO A 


E5 


09 




SBC 


$09 


ABOC 


90 


05 




BCC 


$AB13 


ABOE 


AA 






TAX 





"TAB(" code 
"SPC(" code 



II II 
» 

II . II 

9 

get term 
type -flag 
string? 

change FAC to ASCII string 

get string parameters 

point string 

out -put space 

continue 

input buf^^er 

•finish with $0 

set pointer to input bu-f-fer 
number o-f out-put devices 

<CR) carriage return 
out-put 

logical -File-number 
smaller than 128? 
(LF) line feed 
out-put 



decimal tabulator w/comma 
get cursor position 

subtract 10 
not negative 
invert 
add one 

TAB( <C=1) and SPC ( (C=0) 
sav& -flag 

get cursor position 

and save it 

get byte value 

••)" closing ? 

no, "SYNTAX ERROR" 

to SPC( 

TAB value in ASCII 
compare w/ cursor position 
value less than position, 
then ready 



A-22 



ABOF 


E8 






INX 






ABIO 


CA 






DEX 






ABll 


DO 


06 




BNE 


*AB19 




AB13 


20 


73 


00 


JSR 


$0073 


i^nr\oc 1 gex. nex^ cnaractier 


AB16 


4C 


A2 


AA 


JMP 


$AAA2 


and continue 


AB19 


20 


3B 


AB 


JSR 


*AB3B 


out-put space 


ABIC 


DO 


F2 




BNE 


*AB10 


to loop start 




Out-put string 


ABIE 


20 


87 


B4 


JSR 


$:B487 


get string paremeter 


HDj£. 1 




Ho 


B6 


JSR 


$B6A6 


FRESTR 


AB24 


AA 






TAX 




string length 


AB25 


AO 


00 




LDY 


#*00 




AB27 


E8 






INX 






AB28 


CA 






DEX 






AB29 


FO 


BC 




BEQ 


*AAE7 


string end? 


AB2B 


Bl 


22 




LDA 


($22) ,Y 


string character 


AB2D 


20 


47 


AB 


JSR 


*AB47 


output 


AB30 


C8 






I NY 






AB31 


C9 


OD 




CMP 


#$0D 


"CR" carriage return 


AB33 


DO 


F3 




BNE 


$AB28 


no, continue 


AB35 


20 


E5 


AA 


JSR 


*AAE5 


invert code 


AB38 


4C 


28 


AB 


JMP 


$AB28 


and continue 




Out-put an empty character 


AB3B 


A5 


13 




LDA 


*13 


AB3D 


FO 


03 




BEQ 


*AB42 




AB3F 


A9 


20 




LDA 


#*20 


" " sqace 


AB47 


2C 






-BYTE *2C 




AB48 


A9 


ID 




LDA 


#$1D 


cursor right 


AB4A 


2C 






-BYTE *2C 


AB4B 


A9 


3F 




LDA 


#*3F 


question mark 


AB47 


20 


OC 


El 


JSR 


*E10C 


out— put 


AB4A 


29 


FF 




AND 


#*FF 


set flags 


AB4C 


60 






RTS 








Error treatment at input 


AB4D 


A5 


11 




LDA 


*11 


flag for INPUT/GET/READ 


AB4F 


FO 


11 




BEQ 


$AB62 


INPUT 


AB51 


30 


04 




BMI 


*AB57 


READ 


AB53 


AO 


FF 




LDY 


#*FF 




AB55 


DO 


04 




BNE 


$AB5B 


GET 




Error at READ 


AB57 


A5 


3F 




LDA 


*3F 


data line-number 


AB59 


A4 


40 




LDY 


*40 





AB5B 85 39 STA *39 
AB5D 84 3A STY *3A 
AB5F 4C 08 AF JMP *AF08 



Error at GET 

is line number of mistake 
"SYNTAX ERROR" 



mb,1 A5 13 LDA *13 
AB64 FO 05 BEQ *AB6B 
AB66 A2 18 LDX #*18 



Error at INPUT 
number of input device 
keyboard? 

number for "FILE DATA" 



A-23 



AB68 


4C 


37 


A4 


JMP 


*A437 


AB6B 


A9 


OC 




LDA 


«*0C 


AB6D 


AO 


AD 




LDY 


#$AD 


AB6F 


20 


IE 


AB 


JSR 


$AB1E 


AB72 


A5 


3D 




L.DA 


*3D 


AB74 


A4 


3E 




LDY 


*3E 


AB76 


85 


7A 




STA 


*7A 


AB78 


84 


7B 




STY 


*7B 


AB7A 


60 






RTS 





***************************** 



AB7B 


20 


A6 


B3 


JSR 


$B3A6 


AB7E 


C9 


23 




CMP 


#*23 


AB80 


DO 


10 




BNE 


$AB92 


AB82 


20 


73 


OO 


JSR 


^0073 


AB85 


20 


9E 


B7 


JSR 


*B79E 


AB88 


A9 


2C 




LDA 


tt*2C 


ABBA 


20 


FF 


AE 


JSR 


*AEFF 


AB8D 


86 


13 




STX 


*13 


AB8F 


20 


IE 


El 


JSR 


*E11E 


AB92 


A2 


01 




LDX 


#*01 


AB94 


AO 


02 




LDY 


»*02 


AB96 


A9 


00 




LDA 


#*00 


AB98 


8D 


01 


02 


STA 


*0201 


AB9B 


A9 


40 




LDA 


«*40 


AB9D 


20 


OF 


AC 


JSR 


*ACOF 


ABAO 


A6 


13 




LDX 


*13 


ABA2 


DO 


13 




BNE 


*ABB7 


ABA4 


60 






RTS 




************************* 


ABAS 


20 


9E 


B7 


JSR 


*B79E 


ABA8 


A9 


2C 




LDA 


#*2C 


ABAA 


20 


FF 


AE 


JSR 


*AEFF 


ABAD 


86 


13 




STX 


*13 


ABAF 


20 


IE 


El 


JSR 


$E11E 


ABB2 


20 


CE 


AB 


JSR 


*ABCE 


ABBS 


AS 


13 




LDA 


*13 


ABB7 


20 


CC 


FF 


JSR 


*FFCC 


ABBA 


A2 


00 




LDX 


#*00 


ABBC 


86 


13 




STX 


*13 


ABBE 


60 






RTS 




************************4 


ABBF 


C9 


22 




CMP 


#$22 


ABCl 


DO 


OB 




BNE 


$ABCE 


ABC3 


20 


BD 


AE 


JSR 


*AEBD 


ABC6 


A9 


3B 




LDA 


#*3B 


ABC8 


20 


FF 


AE 


JSR 


*AEFF 


ABCB 


20 


21 


AB 


JSR 


*AB21 


ABCE 


20 


A6 


B3 


JSR 


*B3A6 


ABDl 


A9 


2C 




LDA 


#*2C 


ABD3 


8D 


FF 


01 


STA 


*01FF 


ABD6 


20 


F9 


AB 


JSR 


*ABF9 


ABD9 


AS 


13 




LDA 


$13 



out-put error message 

pointer to "?REDO FROM 
out -put string START 

program pointer back 

to INPUT command 



BASIC-BET command 
checks on direct mode 
"#" 
no? 

get next character 
get byte value 
" , " comma 
checks on code 

GET gets a a character 

pointer to bu-ffer end= $201 
buffer ends with $201 and$0 

GET flag 

value asignment to variable 
input device 

not keyboard, then CLRCH 

BASIC-INPUT# command 

gets bute va:ie 
II II 
f 

checks on comma 

input device 

get a character 

INPUT w/o dialog string 

sets back input device 

input device is keyboard 



BASIC-INPUT command 
II (II) II inverted comma 
no 

get dialog string 
semicolon 
checks on code 
out-put string 
checks on direct mode 
" , " comma 
to bu-f-fer start 
out-put question mark 
number o-f input device 



A-24 



/Venn 


r U 


UD 




BEQ 


$ABEA 




20 


B7 


FF 


JSR 


$FFB7 


HtJtU 




02 




AND 


#*02 




FO 


06 




BEQ 


$ABEA 




20 


B5 


AB 


JSR 


$ABB5 


ABE7 


4C 


F8 


A8 


J MP 


$A8F8 


ABEA 


AD 


OO 


02 


LDA 


$0200 


ABED 


DO 


IE 




BNE 


$ACOD 


ABEF 


A5 


13 




LDA 


$13 


ABFl 


DO 


E3 




BNE 


$ABD6 


Hor o 


20 


06 


A9 


JSR 


*A906 


Hor o 




FB 


A8 


J MP 


*A8FB 


rftJr V 


A5 


13 




LDA 


3*13 


ABFB 


DO 


06 




BNE 


*AC03 


ABFD 


20 


45 


AB 


JSR 


$AB45 


ACOO 


20 


3B 


AB 


JSR 


$AB3B 


AC03 


4C 


60 


A5 


JMP 


$A560 




AC06 


A6 


41 




LDX 


X 


AC08 


A4 


42 




LDY 




ACOA 


A9 


98 




LDA 


#$98 


ACOC 


2C 


A9 


00 


RTT 
ox 1 




ACOF 


85 


j[ \ 




xJ 1 M 


^1 1 

•P X X 


ACl 1 


86 


43 




STX 


$43 


AC 13 


84 


44 




STY 




AC15 


20 


8B 


BO 


JSR 




AC18 


85 


49 




STA 


$49 


ACIA 


84 


4A 




STY 


$4A 


ACIC 


A5 


7A 




LDA 


$7A 


ACIE 


A4 


7B 




LDY 


$7B 


AC20 


85 


4B 




STA 


$4B 


AC22 


84 


4C 




STY 


$4C 


AC24 


A6 


43 




LDX 


$43 


AC26 


A4 


44 




LDY 


$44 


AC28 


86 


7A 




STX 


$7A 


AC2A 


84 


7B 




STY 


$7B 


AC2C 


20 


79 


00 


JSR 


$0079 


AC2F 


DO 


20 




BNE 


$AC51 


AC31 


24 


11 




BIT 


$11 


AC33 


50 


OC 




BVC 


$AC41 


AC35 


20 


24 


El 


JSR 


$E124 


AC38 


8D 


OO 


02 


STA 


$0200 


AC3B 


A2 


FF 




LDX 


#$FF 


AC3D 


AO 


01 




LDY 


#$oi 


AC3F 


DO 


OC 




BNE 


$AC4D 


AC41 


30 


75 




BMI 


$ACB8 


AC43 


A5 


13 




LDA 


$13 


AC45 


DO 


03 




BNE 


$AC4A 


AC47 


20 


45 


AB 


JSR 


$AB45 


AC4A 


20 


F9 


AB 


JSR 


$ABF9 


AC4D 


86 


7A 




STX 


$7A 


AC4F 


84 


7B 




STY 


$7B 


AC51 


20 


73 


00 


JSR 


$0073 


AC54 


24 


OD 




BIT 


$OD 


AC56 


10 


31 




BPL 


$AC89 


AC58 


24 


11 




BIT 


$11 



keyboard? 
get status 

Time-out? 

yes, CLRCH, reset keyboard 
execute next statement 

get -first character 
end? 

yes, input device 
not keyboard? 
out-put "?" 
out— put space 
get input line 

BASIC-READ command 

get DATA pointer 
READ flag 



set 

INPUT pointer to input 
looks for variable 

save variable address 



under — save program pointer 
in $4b/$4c 

INPUT pointer 

equals program pointer 

CHRGOT gets last character 

input flag 



write character into buffer 



input device 
not keyboard? 
out-put "?" 
out-put second "?" 
set program pointer 

get next character 
type flag 



A-25 



AC5A 


50 09 




BVC *AC65 




AC5C 


E8 




I NX 




AC5D 


86 7A 




STX *7A 




AC5F 


A9 00 




LDA #*00 




AC61 


85 07 




STA *07 




AC63 


FO OC 




BEQ $AC71 




AC65 


85 07 




STA *07 




AC67 


C9 22 




CMP #*22 


II (II) M inverted comma 


AC69 


FO 07 




BEQ $AC72 




AC6B 


A9 3A 




LDA #$3A 


II _ II 


AC6D 


85 07 




STA *07 




AC6F 


A9 2C 




LDA #*2C 


II II 


AC71 


18 




CLC 




AC72 


85 08 




STA *08 




AC74 


A5 7A 




LDA *7A 




AC76 


A4 7B 




LDY *7B 




AC78 


69 00 




ADC #*00 




AC7A 


90 01 




BCC *AC7D 




AC7C 


C8 




I NY 




AC7D 


20 8D 


B4 


JSR *B48D 


take over string 


AC80 


20 E2 


B7 


JSR «7E2 


program pointer behnd stri 


AC83 


20 DA 


A9 


JSR *A9DA 


assign string to variable 


AC86 


4C 91 


AC 


JMP $AC91 


continue 


AC89 


20 F3 


BC 


JSR *BCF3 


get digit string in FAC 


AC8C 


A5 OE 




LDA *0E 


INTEGER/REAL flag 


AC8E 


20 C2 


A9 


JSR *A9C2 


assign FAC to # variable 


Ml_> V X 


20 79 


00 


JSR $0079 


get last character 


AC94 


FO 07 




BEQ *AC9D 


end? 


AC96 


C9 2C 




CMP »*2C 


11 II 


AC98 


FO 03 




BEQ *AC9D 




AC9A 


4C 4D 


AB 


JMP *AB4D 


to error treatnebt 


AC9D 


A5 7A 




LDA *7A 




AC9F 


A4 7B 




LDY *7B 


program pointer 


ACAl 


85 43 




STA *43 




ACA3 


84 44 




STY $44 


equals DATA pointer 


ACA5 


A5 4B 




LDA *4B 




ACA7 


A4 4C 




LDY *4C 


get back program pointer 


ACA9 


85 7A 




STA $7A 




ACAB 


84 7B 




STY *7B 




ACAD 


20 79 


00 


JSR $0079 


get last character 


ACBO 


FO 2D 




BEQ $ACDF 




ACB2 


20 FD 


AE 


JSR *AEFD 


checks on comma 


ACB5 


4C 15 


AC 


JMP *AC15 


cont i nue 


ACB8 


20 06 


A9 


JSR *A906 


look "for next statement 


ACBB 


C8 




I NY 




ACBC 


AA 




TAX 


1 i ne end? 


ACBD 


DO 12 




BNE *ACD1 


no 


ACBF 


A2 OD 




LDX #$OD 




ACCl 


C8 




I NY 




ACC2 


Bl 7A 




LDA (*7A) ,Y 




ACC4 


FO 6C 




BEQ $AD32 


Cri iU KJ§ r^' v«rw|l dill . 


ACC6 


C8 




I NY 


"OUT OF DATA" X=0 


ACC7 


Bl 7A 




LDA (*7A),Y 




ACC9 


85 3F 




STA *3F 




ACCB 


C8 




I NY 





A-26 



ACCC 


Bl 


7A 




LDA 


(*7A) ,Y 




ACCE 


C8 






I NY 






ACCF 


85 


40 




STA 


*40 




ACDl 


20 


FB 


A8 


JSR 


$A8FB 


program pointer to next st- 


ACD4 


20 


79 


OO 


JSR 


*0079 


get last character atement 


ACD7 


AA 






TAX 






ACD8 


EO 


83 




CPX 


#$83 


"DATA" 


ACDA 


DO 


DC 




BNE 


$ACB8 


no, keep looking 


ACDC 


4C 


51 


AC 


JMP 


*AC51 


read data 


ACDF 


A5 


43 




LDA 


*43 




ACEl 


A4 


44 




LDY 


*44 


input pointer 


ACE3 


A6 


11 




LDX 


*11 


input flag 


ACES 


10 


03 




BPL 


$ACEA 


no DATA? 


ACE7 


4C 


27 


A8 


JMP 


*A827 


at DATA pointer 


ACEA 


AO 


OO 




LDY 


moo 




ACEC 


Bl 


43 




LDA 


(*43> ,Y 




ACEE 


FO 


OB 




BEQ 


*ACFB 




ACFO 


A5 


13 




LDA 


*13 




ACF2 


DO 


07 




BNE 


*ACFB 




ACF4 


A9 


FC 




LDA 


#*FC 




ACF6 


AO 


AC 




LDY 


#*AC 


pointer to "EXTRA IGNORED" 


ACF8 


4C 


IE 


AB 


JMP 


$AB1E 


out— put string 


ACFB 


60 






RTS 







ACFC 3F 45 58 54 52 41 20 49 "7EXTRA IGNORED" 
AD04 47 4E 4F 52 45 44 OD 00 

ADOC 3F 52 45 44 4F 20 46 52 "?REDO FROM START" 
AD14 4F 4D 20 53 54 41 52 54 
ADIC OD 

***************************** BASIC— NEXT command 



ADIE 


DO 


04 




BNE 


*AD24 


does variable name follow? 


AD20 


AO 


00 




LDY 


#*00 




AD22 


FO 


03 




BEQ 


*AD27 




AD24 


20 


8B 


BO 


JSR 


$B08B 


looks -for variable 


AD27 


85 


49 




STA 


$49 




AD29 


84 


4A 




STY 


*4A 


variable address 


AD2B 


20 


8A 


A3 


JSR 


*A38A 


looks -for FOR-NEXT loop 


AD2E 


FO 


05 




BEQ 


*AD35 


found it in stack 


AD30 


A2 


OA 




LDX 


#*0A 


number for "NEXT W/0 FOR" 


AD32 


4C 


37 


A4 


JMP 


$A437 


out-put error message 


AD35 


9A 






TXS 






AD36 


8A 






TXA 






AD37 


18 






CLC 






AD38 


69 


04 




ADC 


#*04 




AD3A 


48 






PHA 






AD3B 


69 


06 




ADC 


#*06 




AD3D 


85 


24 




STA 


*24 




AD3F 


68 






PLA 






AD40 


AO 


01 




LDY 


#*01 




AD42 


20 


A2 


BB 


JSR 


$BBA2 


get variable from stack. 


AD45 


BA 






TSX 




put in FAC 


AD46 


BD 


09 


01 


LDA 


*0109,X 




AD49 


85 


66 




STA 


$66 




AD4B 


A5 


49 




LDA 


$49 


variable address 



A-27 



AD4D 


A4 


4A 




LDY 


$4A 




AD4F 


20 


67 


B8 


JSR 


$B867 




AD52 


20 


DO 


BB 


JSR 


$BBDO 




AD55 


AO 


01 




LDY 


#$01 




AD57 


20 


5D 


BC 


JSR 


$BC5D 




AD5A 


BA 






TSX 






AD5B 


38 






SEC 






AD5C 


FD 


09 


01 


SBC 


$0109, 


X 


AD5F 


FO 


17 




BEQ 


*AD78 




AD61 


BD 


OF 


01 


LDA 


$010F, 


X 


AD64 


85 


39 




STA 


*39 




AD66 


BD 


10 


01 


LDA 


$0110, 


X 


AD69 


85 


3A 




STA 


$;3A 




AD6B 


BD 


12 


01 


LDA 


*0112, 


X 


AD6E 


85 


7A 




STA 


*7A 




AD70 


BD 


11 


01 


LDA 


$0111, 


X 


AD73 


85 


7B 




STA 


*7B 




AD75 


4C 


AE 


A7 


JMP 


$A7AE 




AD78 


8A 






TXA 






AD79 


69 


11 




ADC 


#$11 




AD7B 


AA 






TAX 






AD7C 


9A 






TXS 






AD7D 


20 


79 


00 


JSR 


$0079 




AD80 


C9 


2C 




CMP 


#$2C 




AD82 


DO 


Fl 




BNE 


$AD75 




AD84 


20 


73 


00 


JSR 


$0073 




AD87 


20 


24 


AD 


JSR 


$AD24 





***************************** 
AD8A 20 9E AD JSR $AD9E 

***************************** 
AD8D 18 CLC 
AD8E 24 



adds STEP value to FAC 
bring FAC to variable 

compare FAC with end value 
o-f 1 oop 



get line number 

get program pointer 
to interpreter loop 

CHRGOT get last character 

" , " comma 

no, then done 

get next character 

next NEXT-variable 

Get term and check number ic 
get term 

Checks on numeric 



***************************** Checks on string 



AD8F 


38 




SEC 






AD90 


24 


OD 


BIT 


$0D 


check type -flag 


AD92 


30 


03 


BMI 


$AD97 




AD94 


BO 


03 


BCS 


$AD99 




AD96 


60 




RTS 






AD97 


BO 


FD 


BCS 


$AD96 




AD99 


A2 


16 


LDX 


#$16 


# for "TYPE MISMATCH" 


AD96 


4C 


37 


A4 JMP 


$A437 


out— put error message 



***************************** 



AD9E 


A6 


7A 


LDX 


$7A 


ADAO 


DO 


02 


BNE 


$ADA4 


ADA2 


C6 


7B 


DEC 


$7B 


ADA4 


C6 


7A 


DEC 


$7A 


ADA6 


A2 


00 


LDX 


#$00 


ADA8 


24 




.BYTE $24 


ADA9 


48 




PHA 




ADAA 


8A 




TXA 




ADAB 


48 




PHA 





FRMEVL evaluation o-f a term 
decrease program pointer 1 



A-28 



ADAC 


A9 


01 




LDA 


#*01 


ADAE 


20 


FB 


A3 


JSR 


*A3FB 


ADBl 


20 


83 


AE 


JSR 


*AE83 


ADB4 


A9 


00 




LDA 


#*00 


ADB6 


85 


4D 




STA 


*4D 


ADB8 


20 


79 


00 


JSR 


*0079 


ADBB 


38 






SEC 




ADBC 


E9 


Bl 




SBC 


#$B1 


ADBE 


90 


17 




BCC 


*ADD7 


ADCO 


C9 


03 




CMP 


#*03 


ADC2 


BO 


13 




BCS 


*ADD7 


ADC4 


C9 


Ol 




CMP 


#*01 


ADC6 


2A 






ROL 




ADC7 


49 


01 




EOR 


#$01 


ADC9 


45 


4D 




EOR 


*4D 


ADCB 


C5 


4D 




CMP 


*4D 


ADCD 


90 


61 




BCC 


*AE30 


ADCF 


85 


4D 




STA 


*4D 


ADDl 


20 


73 


00 


JSR 


$0073 


ADD4 


4C 


BB 


AD 


JMP 


$ADBB 


ADD7 


A6 


4D 




LDX 


*4D 


ADD9 


DO 


2C 




BNE 


*AE07 


ADDB 


BO 


7B 




BCS 


$AE58 


ADDD 


69 


07 




ADC 


#*07 


ADDF 


90 


77 




BCC 


*AE58 


ADEl 


65 


OD 




ADC 


*0D 


ADE3 


DO 


03 




BNE 


$ADE8 


ADE5 


4C 


3D 


B6 


JMP 


$B63D 


ADE8 


69 


FF 




ADC 


#*FF 


ADEA 


85 


22 




STA 


*22 


ADEC 


OA 






ASL 




ADED 


65 


22 




ADC 


*22 


ADEF 


A8 






TAY 




ADFO 


68 






PLA 




ADFl 


D9 


80 


AO 


CMP 


*A08O 


ADF4 


BO 


67 




BCS 


*AE5D 


ADF6 


20 


8D 


AD 


JSR 


$AD8D 


ADF9 


48 






PHA 




ADFA 


20 


20 


AE 


JSR 


*AE20 


ADFD 


68 






PLA 




ADFE 


A4 


4B 




LDY 


$4B 


AEOO 


10 


17 




BPL 


*AE19 


AE02 


AA 






TAX 




AE03 


FO 


56 




BEQ 


*AE5B 


AE05 


DO 


5F 




BNE 


$AE66 


AE07 


46 


OD 




LSR 


^OD 


AE09 


8A 






TXA 




AEOA 


2A 






ROL 




AEOB 


A6 


7A 




LDX 


*7A 


AEOD 


DO 


02 




BNE 


$AE11 


AEOF 


C6 


7B 




DEC 


*7B 


AEll 


C6 


7A 




DEC 


$^7A 


AE13 


AO 


IB 




LDY 


#$1B 


AE15 


85 


4D 




STA 


*4D 



2 bytes 

checks on fre stack space 
get next character 

mask -for compare operator 
get last character 



mask -for <, =, or > 



CHRGET get next character 
back 



string linkagE 
code :$AA 



times three 

compare with order flag 

checks on numeric 

operator address and 
operands on stack 



clear string -flag 



decrease program pointer 1 



o-f-fset o-F order flag 
set f 1 ag 



A- 



29 



AE17 


DO D7 


BNE $ADFO 




AE19 


D9 80 AO 


CMP *A080,Y 


compare with order -flag 


AEIC 


BO 48 


BCS $AE66 




AEIE 


90 D9 


BCC *ADF9 




AE20 


B9 82 AO 


LDA *A082,Y 




AE23 


48 


PHA 


operation address on stack 


AE24 




LDA *A081,Y 




AE27 


48 


PHA 




AE28 


20 33 AE 


JSR $AE33 


operands on stack 


AE2B 


A5 4D 


LDA *4D 




AE2D 


4C A9 AD 


JMP *ADA9 


to start o-f loop 


AE30 


4C 08 AF 


JMP 4?AF08 


gives "SYNTAX ERROR" 


AE33 


A5 66 


LDA $=66 


signs 


AE35 


BE 80 AO 


LDX $A080,Y 


order -flag 


AE38 


A8 


TAY 




AE39 


68 


PLA 




AE3A 


85 22 


STA *22 




AE3C 


E6 22 


INC *22 


save return address 


AE3E 


68 


PLA 




AE3F 


85 23 


STA *23 




AE41 


98 


TYA 


sign 


AE42 


48 


PHA 




AE43 


20 IB BC 


JSR *BC1B 


round FAC 


AE46 


A5 65 


LDA *65 






48 


PHA 




AE49 


A5 64 


LDA $64 




AE46 


48 


PHA 




AE4C 


A5 63 


LDA $63 




AE4E 


48 


PHA 


F"AP nn ^tack 


AE4F 


A5 62 


LDA *62 




AE51 


48 


PHA 




AE52 


A5 61 


LDA $61 




AE54 


48 


PHA 




AE55 


6C 22 OO 


JMP ($0022) 


Jump to operation 


AE58 


AO FF 


LDY #*FF 


AE5A 


68 


PLA 




AE5B 


FO 23 


BEQ $AE80 




AE5D 


C9 64 


CMP #$64 




AE5F 


FO 03 


BEQ $AE64 




AE61 


20 8D AD 


JSR $AD8D 


checks on numeric 


AE64 


84 4B 


STY $4B 




AE66 


68 


PLA 




AE67 


4A 


LSR 




AE68 


85 12 


STA $12 




AE6A 


68 


PLA 




AE6B 


85 69 


STA $69 




AE6D 


68 


PLA 




AE6E 


85 6A 


STA $6A 




AE70 


68 


PLA 


uC?w niAU • 1 will 9 W GIL. rc 


AE71 


85 6B 


STA $6B 


AE73 


68 


PLA 




AE74 


85 6C 


STA $6C 




AE76 


68 


PLA 




AE77 


85 6D 


STA $6D 




AE79 


68 


PLA 





A-30 



rfC / H 


DO 


OC. 




STA 


*6E 




AE7C 


45 


66 




EOR 


$66 




AE7E 


85 


6F 




STA 


*6F 




AE80 


A5 


61 




LDA 


$61 




AE82 


60 






RTS 








Get arithmetic term 


AE83 


6C 


OA 


03 






JMP $AE86 


AE86 


A9 


00 




LDA 


#$00 




AE8& 


85 


OD 




STA 


$0D 


type flag on numeric 


AE8A 


20 


73 


00 


JSR 


$0073 


get next character 


AE8D 


BO 


03 




BCS 


$AE92 


digit? 


AE8F 


4C 


F3 


BC 


JMP 


$BCF3 


get variable to FAC 


AE92 


20 


13 


Bl 


JSR 


$B113 


letter? 


AE95 


90 


03 




BCC 


$AE9A 


no 


AE97 


4C 


28 


AF 


JMP 


$AF28 


get variable 


AE9A 


C9 


FF 




CMP 


#$FF 


BASIC code for Pi? 


AE9C 


DO 


OF 




BNE 


$AEAD 




AE9E 


A9 


A8 




LDA 


#$A8 


pointer to Pi constant 


AEAO 


AO 


AE 




LDY 


#$AE 




AEA2 


20 


A2 


BB 


JSR 


$BBA2 


get cpmstamt tp FAC 


AEA5 


4C 


73 


00 


JMP 


$0073 






AEA8 


82 49 OF DA Al 




AEAD 


C9 


2E 




CMP 


#$2E 


■f II 

■ 


AEAF 


FO 


DE 




BEG 


$AE8F 




AEBl 


C9 


AB 




CMP 


#$AB 


11 ^11 


AEB3 


FO 


58 




BEQ 


$AFOD 




AEB5 


C9 


AA 




CMP 


#$AA 




AEB7 


FO 


Dl 




BEQ 


$AE8A 




AEB9 


C9 


22 




CMP 


#$22 


•1 ( " ) " 


AEBB 


DO 


OF 




BNE 


$AECC 




AEBD 


A5 


7A 




LDA 


$7A 




AEBF 


A4 


7B 




LDY 


$7B 


yt=i- pr tjyi oiiii pox nuer 


AECl 


69 


00 




ADC 


#$00 




AEC3 


90 


01 




BCC 


$AEC6 




AEC5 


C8 






I NY 






AEC6 


20 


87 


B4 


JSR 


$B487 


ur einsTer ST_r xng 


AEC9 


4C 


E2 


B7 


JMP 


$B7E2 


Drof!ir"aiii ooi frhi^r" tri c:-hr~i i 


AECC 


C9 


A8 




CMP 


#$A8 


"NOT" code end + 


AECE 


DO 


13 




BNE 


$AEE3 




AEDO 


AO 


18 




LDY 


#$18 


offset of order flag in 


AED2 


DO 


3B 




BNE 


$AFOF 


1 1 s^ 




BftSiC— NUT command 


AED4 


20 


BF 


Bl 


JSR 


$B1BF 


change FAC to integer 


AED7 


A5 


65 




LDA 


$65 




AED9 


49 


FF 




EOR 


#$FF 


turn around all bits 


AEDB 


A8 






TAY 






AEDC 


A5 


64 




LDA 


$64 




AEDE 


49 


FF 




EOR 


#$FF 




AEEO 


4C 


91 


B3 


JMP 


$B391 


return to running comma 






AEE3 


C9 


A5 




CMP 


#$A5 


"FN" code 



A-31 



AEE5 DO 03 BNE $AEEA 
AEE7 4C F4 B3 JMP *B3F4 



execute IN 



***************************** 



AEEA 


C9 


B4 




CMP 


#$B4 


AEEC 


90 


03 




BCC 


*AEF1 


AEEE 


4C 


A7 


AF 


JMP 


*AFA7 


**************************^ 


AEFl 


20 


FA 


AE 


JSR 


*AEFA 


AEF4 


20 


9E 


AD 


JSR 


*AD9E 


**************************^ 


AEF7 


A9 


29 




LDA 


#*29 


AEF9 


2C 






.BYTE *2C 


AEFA 


A9 


28 




LDA 


#$28 


AEFC 


2C 






.BYTE *2C 


AEFD 


A9 


2C 




LDA 


#*2C 


AEFF 


AO 


00 




LDY 


#*00 


AFOl 


Dl 


7A 




CMP 


(*7A) ^Y 


AF03 


DO 


03 




BNE 


*AF08 


AF05 


4C 


73 


00 


JMP 


$0073 


AF08 


A2 


OB 




LDX 


#*0B 


AFOA 


4C 


37 


A4 


JMP 


*A437 


AFOD 


AO 


15 




LDY 


#*15 


AFOF 


68 






PLA 




AFIO 


68 






PLA 




AFll 


4C 


FA 


AD 


JMP 


*ADFA 


AF14 


38 






SEC 




AF15 


A5 


64 




LDA 


$64 


AF17 


E9 


00 




SBC 


#$00 


AF19 


A5 


65 




LDA 


$65 


AFIB 


E9 


AO 




SBC 


#$A0 


AFID 


90 


08 




BCC 


$AF27 


AFIF 


A9 


A2 




LDA 


#$A2 


AF21 


E5 


64 




SBC 


$64 


AF23 


A9 


E3 




LDA 


#$E3 


AF25 


E5 


65 




SBC 


$65 


AF27 


60 






RTS 





"SGN code 

smaller (no -function)? 

for calculation o-f -function 

Gets term in parenthesis 
checks on parenthesis open 
FRMEVL gets term 

Checks on character in text 
")" closeing parenthesis 

"(" opening parenthesis 

" , " comma 

compare with curent number 
no concurrence? 
get next character 
# for "SYNTAX ERROR" 
out -put error message 
offset order code for 
change of sign 

for evaluation 



***************************** Get variable 



AF28 


20 


8B 


BO 


JSR 


$B08B 


look for variable 


AF2B 


85 


64 




STA 


$64 




AF2D 


84 


65 




STY 


$65 


points to variable or 


AF2F 


A6 


45 




LDX 


$45 


string descriptor 


AF31 


A4 


46 




LDY 


$46 


variable name 


AF33 


A5 


OD 




LDA 


$OD 


type flag 


AF35 


FO 


26 




BEQ 


$AF5D 


numeric? 


AF37 


A9 


00 




LDA 


#$00 




AF39 


85 


70 




STA 


$70 




AF3B 


20 


14 


AF 


JSR 


$AF14 




AF3E 


90 


IC 




BCC 


$AF5C 




AF40 


EO 


54 




CPX 


#$54 


II -p II 


AF42 


DO 


18 




BNE 


$AF5C 




AF44 


CO 


C9 




CPY 


#$C9 


"I$" 



A-32 



AF46 


DO 


14 




BNE 


*AF5C 




AF48 


20 


84 


AF 


JSR 


*AF84 


get time 


AF4B 


84 


5E 




STY 


i^5E 


AF4D 


88 






DEY 






AF4E 


84 


71 




STY 


*71 




AF50 


AO 


06 




LDY 


#$06 




AF52 


84 


5D 




STY 


$5D 




AF54 


AO 


24 




LDY 


#$24 




AF56 


20 


68 


BE 


JSR 


$BE68 


produces string 


AF59 


4C 


6F 


B4 


JMP 


$B46F 


AF5C 


60 






RTS 






AF5D 


24 


OE 




BIT 


$OE 


INTEBER/REAL -flag 


AF5F 


10 


OD 




BPL 


*AF6E 


REAL? 


AF61 


AO 


00 




LDY 


#$00 




AF63 


Bl 


64 




LDA 


($64) ,Y 


get i nteger number 


AF65 


AA 






TAX 




AF66 


C8 






I NY 






AF67 


Bl 


64 




LDA 


($64) ,Y 




AF69 


A8 






TAY 






AF6A 


8A 






TXA 






AF6B 


4C 


91 


B3 


JMP 


$B391 


and change to running poini 


AF6E 


20 


14 


AF 


JSR 


$AF14 




AF71 


90 


2D 




BCC 


$AFAO 




AF73 


EO 


54 




CPX 


#$54 


"T" 


AF75 


DO 


IB 




BNE 


$AF92 




AF77 


CO 


49 




CPY 


#$49 


II J II 


AF79 


DO 


25 




BNE 


$AFAO 




AF7B 


20 


84 


AF 


JSR 


$AF84 


get TIME to FAC 


AF7E 


98 






TYA 




AF7F 


A2 


AO 




LDX 


#$A0 




AF81 


4C 


4F 


BC 


JMP 


$BC4F 






Get time 


AF84 


20 


DE 


FF 


JSR 


$FFDE 


get TIME 


AF87 


86 


64 




STX 


$64 




AF89 


84 


63 




STY 


$63 




AF8B 


85 


65 




STA 


$65 




AF8D 


AO 


00 




LDY 


#$00 


and into -floating point 


AF8F 


84 


62 




STY 


$62 


accumul ator 


AF91 


60 






RTS 






AF92 


EO 


53 




CPX 


#$53 


"S" 


AF94 


DO 


OA 




BNE 


$AFAO 




AF96 


CO 


54 




CPY 


#$54 


II -J- II 


AF98 


DO 


06 




BNE 


$AFAO 




AF9A 


20 


B7 


FF 


JSR 


$FFB7 


get status 


AF9D 


4C 


3C 


BC 


JMP 


$BC3C 


change byte in accum. to 


AFAO 


A5 


64 




LDA 


$64 


floating point -format 


AFA2 


A4 


65 




LDY 


$65 


variable address 


AFA4 


4C 


A2 


BB 


JMP 


$BBA2 


get variable in FAC 


AFA7 


OA 






ASL 




code times 2 


AFA8 


48 






PHA 






AFA9 


AA 






TAX 






AFAA 


20 


73 


OO 


JSR 


$0073 


next character 


AFAD 


EO 


8F 




CPX 


#$8F 




AFAF 


90 


20 




BCC 


$AFD1 


function code? 


AFBl 


20 


FA 


AE 


JSR 


$AEFA 


checks on parentheses open 



A-33 



AFB4 


20 


9E 


AD 


JSR 


*AD9E 


AFB7 


20 


FD 


AE 


JSR 


*AEFD 


AFBA 


20 


8F 


AD 


JSR 


*AD8F 


AFBD 


68 






PLA 




AFBE 


AA 






TAX 




AFBF 


A5 


65 




LDA 


$65 


AFCl 


48 






PHA 




AFC2 


AS 


64 




LDA 


$64 


AFC4 


48 






PHA 




AFC5 


8A 






TXA 




AFC6 


48 






PHA 




AFC7 


20 


9E 


B7 


JSR 


*B79E 


AFCA 


68 






PLA 




AFCB 


A8 






TAY 




AFCC 


8A 






TXA 




AFCD 


48 






PHA 




AFCE 


4C 


D6 


AF 


JMP 


$AFD6 


AFDl 


20 


Fl 


AE 


JSR 


$AEF1 


AFD4 


68 






PLA 




AFD5 


A8 






TAY 




AFD6 


B9 


EA 


9F 


LDA 


$9FEA,Y 


AFD9 


85 


55 




STA 


$55 


AFDB 


B9 


EB 


9F 


LDA 


$9FEB,Y 


AFDE 


85 


56 




STA 


$56 


AFEO 


20 


54 


00 


JSR 


$0054 


AFr3 


4C 


8D 


AD 


JMP 


$AD8D 



AFE6 AO FF LDY #$FF 
AFE8 2C -BYTE $2C 



gets any term 

checks on parentheses close 
checks on string 



string descriptor address 



get byte value to X 



execute routine 

gets term in parentheses 

BASIC code -for -function 



gets vector to calculate 
the "function 

execute function 
checks on numeric 

BASIC-OR command 
flag for OR 



***************************** BASIC-AND command 



AFE9 


AO 


00 




LDY 


#$00 


flag for AND 


AFEB 


84 


OB 




STY 


$OB 


set flag 


AFED 


20 


BF 


Bl 


JSR 


$B1BF 


change FAC to integer 


AFFO 


A5 


64 




LDA 


$64 




AFF2 


45 


OB 




EOR 


$0B 




AFF4 


85 


07 




STA 


$07 




AFF6 


A5 


65 




LDA 


$65 


connect with flag and $7/$8 


AFF8 


45 


OB 




EOR 


$OB 




AFFA 


85 


08 




STA 


$08 




AFFC 


20 


FC 


BB 


JSR 


$BBFC 


ARB to FAC 


AFFF 


20 


BF 


Bl 


JSR 


$B1BF 


FAC to integer 


B002 


A5 


65 




LDA 


$65 




B004 


45 


OB 




EOR 


$0B 




B006 


25 


08 




AND 


$08 


logical connection 


BOOS 


45 


OB 




EOR 


$0B 




BOOA 


AS 






TAY 






BOOB 


A5 


64 




LDA 


$64 




BOOD 


45 


OB 




EOR 


$0B 




BOOF <. 


25 


07 




AND 


$07 




BOll 


45 


OB 




EOR 


$0B 




B013 


4C 


91 


B3 


JMP 


$B391 


change to floating point 



***************************** Compar i son 



A-34 



B016 


20 


90 








check on same variable t' 


B019 


BO 


13 








strint? then continQe 


BOIB 


A5 


6E 




LDA 


$6E 




BOID 


09 


7F 




Ur\H 


ft* /I" 


MrVlD in incrilUJr y T Ui lilcl l_ 


BOIF 


25 


6A 




AND 


$6A 




B021 


85 


6A 




STA 


^6A 




B023 


A9 


69 




LDA 


#*69 


address of ARG 


B025 


AO 


00 




LDY 


#*00 




B027 


20 


5B 


BC 


JSR 


$BC5B 


(ramnar^ ARG with FAC 


B02A 


AA 






TAX 






B02B 


4C 


61 


BO 


JMP 


$B061 






Str*i nn f~ nmri ^ r~ i cnn 


B02E 


A9 


00 




LDA 


#$00 




B030 


85 


OD 




STA 


$OD 


r* 1 f*i^ir ci4* 1^ 1 nn -I*! An 
^ X cror xii^ ■ x oil| 


B032 


C6 


4D 




DEC 


$4D 




B034 


20 


A6 


B6 


JSR 


$B6A6 


FRESTR 


B037 


85 


61 




STA 


$61 


^tr"ino l&na"fch 


B039 


86 


62 




STX 


$62 




B03B 


84 


63 




STY 


$63 


cz"!- r~ "i nn AHrli^0c:c 
i3 i_r X 1 1^ csuur isaa 


B03D 


A5 


6C 




LDA 


$6C 


B03F 


A4 


6D 




LDY 


$6D 


noi nt^r* + n c=c»r-rinrl «5tr"inn 


B041 


20 


AA 


B6 


JSR 


$B6AA 


FRESTR 


B044 


86 


6C 




STX 


$6C 




B046 


84 


6D 




STY 


$6D 


address of second string 


B048 


AA 






TAX 






B049 


38 






SEC 






B04A 


E5 


61 




SBC 


$61 


I— i-iiii|-f cxr ts X cri isi 


B04C 


FO 


08 




BEQ 


$B056 


equal? 


B04E 


A9 


01 




LDA 


#$01 


B050 


90 


04 




BCC 


$B056 


second string shorter 


B052 


A6 


61 




LDX 


$61 


B054 


A9 


FF 




LDA 


#$FF 




B056 


85 


66 




STA 


$66 




B058 


AO 


FF 




LDY 


#$FF 




B05A 


E8 






INX 






B05B 


C8 






I NY 






B05C 


CA 






DEX 






B05D 


DO 


07 




BNE 


$B066 




B05F 


A6 


66 




LDX 


$66 




B061 


30 


OF 




BMI 


$B072 




B063 


18 






CLC 






B064 


90 


OC 




BCC 


$B072 


W wlll|>J ul X a wl 1 U T S3 %mW X C 1 U Z3 


B066 


Bl 


6C 




LDA 


($6C) ,Y 


/— |-v *r- 3 r— 4- ca K" IjA 1 d d 

u. 1 leir oiu.wB7r wx sue? 


B068 


Dl 


62 




CMP 


($62) ,Y 




B06A 


FO 


EF 




BEQ 


$B05B 




B06C 


A2 


FF 




LDX 


#$FF 




B06E 


BO 


02 




BCS 


$B072 




B070 


A2 


01 




LDX 


#$01 




B072 


E8 






INX 






B073 


8A 






TXA 






B074 


2A 






ROL 






B075 


25 


12 




AND 


$12 




B077 


FO 


02 




BEQ 


$B07B 




B079 


A9 


FF 




LDA 


#$FF 


get result to FAC 



A-35 



B07B 4C 3C BC JMP *BC3C 
B07E 20 FD AE JSR *AEFD 

***************************** 



B081 


AA 






TAX 




B082 


20 


90 


BO 


JSR 


*B090 


B085 






uu 


1CD 

Uarc 






DO 


F4 




BNE 


$B07E 




6>0 






RTS 




B08B 


A2 


00 




LDX 


#$00 


B08D 


20 


79 


00 


JSR 


$0079 


B090 


86 


OC 




STX 


$0C 


B092 


85 


45 




STA 


$45 


B094 


20 


79 


00 


JSR 


$0079 


B097 


20 


13 


Bl 


JSR 


$B113 


B09A 


BO 


03 




BCS 


$B09F 


B09C 


4C 


08 


AF 


JMP 


$AF08 


B09F 


A2 


00 




LDX 


#$00 


BOAl 


86 


OD 




STX 


$0D 


B0A3 


86 


OE 




STX 


$0E 


BOAS 


20 


73 


00 


JSR 


$0073 


B0A8 


90 


05 




BCC 


$BOAF 


BOAA 


20 


13 


Bl 


JSR 


$B113 


BOAD 


90 


OB 




BCC 


$BOBA 


BOAF 


AA 






TAX 




BOBO 


20 


73 


00 


JSR 


$0073 




90 


FB 




BCC 


$BOBO 




20 


13 


Bl 


JSR 


$B113 


DyJDO 


BO 


F6 




BCS 


$BOBO 




no 






CMP 


#$24 




nri 


nA 
yjo 




BNE 


$B0C4 


oyjDc 


M / 


FF 




LDA 


#$FF 




o»_i 


OD 




STA 


$0D 




DO 


10 




BNE 


$BOD4 


B0C4 


C9 


25 




CMP 


#$25 


BOC& 


DO 


13 




BNE 


$BODB 


B0C8 


A5 


10 




LDA 


$10 


BOCA 


DO 


DO 




BNE 


$B09C 


BOCC 


A9 


80 




LDA 


#$80 


BOCE 


85 


OE 




STA 


$0E 


BODO 


05 


45 




ORA 


$45 


B0D2 


85 


45 




STA 


$45 


B0D4 


8A 






TXA 




BODS 


09 


80 




ORA 


#$80 


B0D7 


AA 






TAX 




BODS 


20 


73 


OO 


JSR 


$0073 


BODB 


86 


46 




STX 


$46 


BODD 


38 






SEC. 


BODE 


05 


10 




□RA 


$10 


BOEO 


E9 


28 




SBC 


#$28 


B0E2 


DO 


03 




BNE 


$B0E7 


B0E4 


4C 


Dl 


Bl 


JMP 


$B1D1 


B0E7 


AO 


00 




LDY 


#$00 


B0E9 


84 


10 




STY 


$10 


BOEB 


A5 


2D 




LDA 


$2D 



checks on comma 

BASIC-DIM command 

dimension variable 
get last character 
not end, next variable 

•flag -for non-dimensioning 

get last character 

set DIM-flag 

variable name 

CHRGOT get last character 

checks on letter 

yes 

"SYNTAX ERROR" 

clear string flag 
clear integer -flag 
get next character 
digit? 

chhecks on letter 
no 

second letter of name 
CHRGET get next character 
digit? 

checks on letter 

yes, read more characters 

II ^ii 

no 

set string flag 

jump 
II ^ II 

no 

integer permitted? 
no, "SYNTAX ERROR" 

set integer flag 
set bit 7 in name 



second leter of name 

CHRGET get next character 
save second letter 



II ^ II 

not parentheses open? 
process dimensioned 
var i abl e 

pointer to variable start 



A-36 



BOED 


A6 


2E 


LDX 


*2E 




BOEF 


86 


60 


STX 


$60 




BOFl 


85 


5F 


STA 


*5F 


save -for searching 


B0F3 


E4 


30 


CPX 


*30 




BOF5 


DO 


04 


BNE 


$BOFB 




B0F7 


C5 


2F 


CMP 


*2F 


end of variables already' 


B0F9 


FO 


22 


BEQ 


*B11D 


yes, not -found 


BOFB 


A5 


45 


LDA 


*45 


•first letter o-f name 


BOFD 


Dl 


5F 


CMP 


(*5F) ,Y 


compare with variable li< 


BOFF 


DO 


08 


BNE 


$B109 


no, keep looking 


BlOl 


A5 


46 


LDA 


$46 


second letter 


B103 


C8 




I NY 






B104 


Dl 


5F 


CMP 


<$5F) ,Y 


compare 


B106 


FO 


7D 


BEQ 


$B185 




BIOS 


88 




DEY 






B109 


18 




CLC 






BlOA 


A5 


5F 


LDA 


$5F 




BIOC 


69 


07 


ADC 


#$07 


increase pointer by 7 (2- 


BlOE 


90 


£1 


BCC 


$B0F1 


byte REAL variable 


BllO 


E8 




I NX 




Bill 


DO 


DC 


BNE 


*BOEF 


keep looking 




Checks on letter 


B113 


C9 


41 


CMP 


#*41 




B115 


90 


05 


BCC 


*B11C 




B117 


E9 


5B 


SBC 


#$5B 




BH9 


38 




SEC 




yes, then C=l 


BllA 


E9 


A5 


SBC 


#*A5 


no, then C=0 


BUG 


60 




RTS 










BHD 


68 




PLA 






BllE 


48 




PHA 




check calling address 


BllF 


C9 


2A 


CMP 


#$2A 


calling from FREMEVL? 


B121 


DO 


05 


BNE 


*B128 


no 


B123 


A9 


13 


LDA 


#*13 


pointer on constant 


B125 


AO 


BF 


LDY 


#$BF 




B127 


60 




RTS 






B128 


A5 


45 


LDA 


$45 




B12A 


A4 


46 


LDY 


$46 


variable name 


B12C 


C9 


54 


CMP 


#$54 


"T" 


B12E 


DO 


OB 


BNE 


$B13B 




B130 


CO 


C9 


CPY 


#$C9 


"I$" 


B132 


FO 


EF 


BEQ 


$B123 


yes, TI$ 


B134 


CO 


49 


CPY 


#$49 


"I" 


B136 


DO 


03 


BNE 


$B13B 


no 


B138 


4C 


08 AF 


JMP 


$AF08 


"SYNTAX ERROR" 


B13B 


C9 


53 


CMP 


#$53 


iigii 


B13D 


DO 


04 


BNE 


$B143 




B13F 


CO 


54 


CPY 


#$54 




B141 


FO 


F5 


BEQ 


$B138 


ST, then "SYNTAX ERROR 


B143 


A5 


2F 


LDA 


$2F 




B145 


A4 


30 


LDY 


$30 


pointer to array listing 


B147 


85 


5F 


STA 


$5F 




B149 


84 


60 


STY 


$60 


save 


B14B 


A5 


31 


LDA 


$31 




B14D 


A4 


32 


LDY 


$32 





A-37 



B14F 


85 5A 




STA *5A 




B151 


84 5B 




STY *5B 




B153 
B154 
B156 


18 

69 07 
90 01 




CLC 

ADC #*07 
BCC *B159 


shi-ft by 7 in order to 
■find a new variable 


B158 


C8 




I NY 




B159 
B15B 
B15D 


85 58 
84 59 
20 B8 


A3 


STA $58 
STY *59 
JSR *A3B8 


new block end 
shi-ft block 


B160 


A5 58 




LDA $58 




B162 


A4 59 




LDY $59 




B164 
B165 
B167 


C8 

85 2F 
84 30 




I NY 

STA $2F 
STY $30 


set pointer to new array 
listing 


B169 
B16B 


AO 00 
A5 45 




LDY #$00 
LDA $45 


■first letter o-f name 


B16D 


91 5F 




STA ($5F) ,Y 




m AP 
Dxor 

B170 


C8 

A5 46 




I NY 

LDA $46 


second letter o-f name 


B172 


91 5F 




STA <$5F) ,Y 




R1 TIL 


A9 00 




1 Lfri TT^W 




B176 


C8 




XNY 




B177 


91 5F 




STA ($5F) ,Y 




B179 


C8 




INY 




B17A 


91 5F 




STA ($5F),Y 


•five times zero ■for value 


B17C 


C8 




INY 


B17D 


91 5F 




STA <$5F),Y 




B17F 


C8 




INY 




B180 


91 5F 




STA ($5F) ,Y 




B182 


C8 




INY 




B183 


91 5F 




STA ($5F),Y 




B185 


A5 5F 




LDA $5F 




B187 


18 




CLC 




B188 


69 02 




ADC #$02 




B18A 


A4 60 




LDY $60 




B18C 


90 01 




BCC $B18F 




B18E 


C8 




INY 




B18F 


85 47 




STA $47 




B191 


84 48 




STY $48 




B193 


60 




RTS 




***************************** 


Calculates pointer to ■first 


B194 


A5 OB 




LDA $0B 


number o^f DIM's element 


B196 


OA 




ASL 


times 2 


B197 


69 05 




ADC #$05 


p 1 us 5 


B199 


65 5F 




ADC $5F 




B19B 


A4 60 




LDY $60 


add to $5F/$60 


B19D 


90 01 




BCC $B1A0 




B19F 


C8 




INY 




BIAO 


85 58 




STA $58 


r esul t-poi nter 


B1A2 


84 59 




STY $59 


B1A4 


60 




RTS 




B1A5 


90 80 00 


00 00 


canstant-32768 


BIAA 


20 BF 


Bl 


JSR $B1BF 


change FAC to integer 


BIAD 


A5 64 




LDA $64 





A-38 



BIAF 
BlBl 



A4 65 
60 



LDY *65 
RTS 



B1B2 


20 


73 


00 


JSR 


^0073 




B1B5 


20 


9E 


AD 


JSR 


■^t~nj~ a. 




B1B8 


20 


8D 










BIBB 


A5 


66 




LDA 


$66 




BIBD 


30 


nn 
yjLf 




oni 






BIBF 


A5 


61 




LDA 


$61 




BlCl 


C9 


90 




CMP 


#*90 




B1C3 


90 


09 




BCC 


*B1CE 




B1C5 


A9 


A5 




LDA 


#*A5 




B1C7 


AO 


Bl 




LDY 


#$:B1 




B1C9 


20 


5B 


BC 


JSR 


*BC5B 




BlCC 


DO 


7A 




BNE 


$B248 




BICE 


4C 


9B 


BC 


JMP 


$BC9B 






BlDl 


A5 


OC 




LDA 


$0C 




B1D3 


05 


OE 




ORA 


$0E 




B1D5 


48 






PHA 






B1D6 


A5 


OD 




LDA 


*0D 




B1D8 


48 






PHA 






B1D9 


AO 


00 




LDY 


#*00 




BIDB 


98 






TYA 






BIDC 


48 






PHA 






BIDD 


A5 


46 




LDA 


$46 




BIDF 


48 






PHA 






BlEO 


A5 


45 




LDA 


$45 




B1E2 


48 






PHA 






B1E3 


20 


B2 


Bl 


JSR 


$B1B2 




B1E6 


68 






PLA 






B1E7 


85 


45 




STA 


$45 




B1E9 


68 






PLA 






BlEA 


85 


46 




STA 


$46 




BlEC 


68 






PLA 






BIED 


A8 






TAY 






BIEE 


BA 






TSX 






BIEF 


BD 


02 


01 


LDA 


$0102, 


X 


B1F2 


48 






PHA 






B1F3 


BD 


01 


01 


LDA 


$0101, 


X 


B1F6 


48 






PHA 






B1F7 


A5 


64 




LDA 


$64 




B1F9 


9D 


02 


01 


STA 


$0102, 


X 


BIFC 


A5 


65 




LDA 


$65 




BIFE 


9D 


01 


01 


STA 


$0101, 


X 


B201 


C8 






I NY 






B202 


20 


79 


00 


JSR 


$0079 




B205 


C9 


2C 




CMP 


#$2C 




B207 


FO 


D2 




BEQ 


$B1DB 




B209 


84 


OB 




STY 


$0B 




B20B 


20 


F7 


AE 


JSR 


$AEF7 




B20E 


68 






PLA 






B20F 


85 


OD 




STA 


$0D 





Change -floating to integer 
get next character 
evaluate term 
checks on numeric 
sign 

negative, then "ILLEGAL 
ex ponen t QUANT I TY " 

sign bigger than 32768? 
no 

pointer to constant 
compare FAC with constant 
uneven "ILLEGAL QUANTITY" 
changes -Floating point to 
integer 

Dimension variable 
DXM-f lag 
integer -Flag 

string flag 

second letter o-F the name 
■First letter o-F the name 
get index and goto integer 

get back variable name 

get -flags from stack 

index low and high on stack 



get last character 
" , " comma? 

yes, then next index 
number of indications 
check on parenthesis close 



A-39 



B21 1 


68 






PLA 








B212 


85 


OE 




STA 


^OE 






B214 


29 


7F 




AND 


#^7F 






B216 


85 


OC 




STA 


$OC 






B218 


A6 


2F 




LDX 


$2F 






B21A 


A5 


30 




LDA 


$30 




pointer* to array listing 


B21C 


86 


5F 




STX 


*5F 






B21E 


85 


60 




STA 


$60 




save pointer" 






-TO 












B222 




f\A 




oNb. 












"Ti 

X 




CPX 


$31 




compare with end o-f listing 


B226 


FO 


TTO 

oV 




0C.U 


^0^01 




y era f Ilut- i vJUiiivi 




RU 


UU 




i rw 


tt-P\J\J 




names -from listing 


B22A 


01 


Dr 




L.UR 




Y 


B22C 


C8 






I NY 








B22D 


C5 


45 




CMP 


$45 




compare with hunted name 


B22F 


DO 


06 




BNE 


$B237 






B231 


A5 


46 




LDA 


$46 






B233 


Di 


5F 




LrPir' 




Y 


seconu lex-uer 


B235 


FO 


16 




BEQ 


$B24D 




■f ound 


/ 








I NY 










01 






LDA 


($5F) f 


Y 




B23A 


18 






CLC 






add -field length 


B23B 


65 


5F 






4:^P 






B23D 


AA 






TAX 








B23E 


C8 






I NY 








B23F 


Bl 


5F 




LDA 




T 




B241 


65 


60 




ADC 


$60 






B243 


90 


D7 




BCC 


$B21C 




anH r-nnt* i ni i(=> ^^ar"f~hinQ 


B245 


A2 


12 




LDX 


#$12 




numDer Tor omij ouiDoi-rrv x i 


B247 


2C 






-BYTE *2C 






B248 








LDX 


#$0E 




# -for "ILLEGAL QUANTITY" 


B24A 


4C 


37 


A4 


JMP 


$A437 




OUu put, er r Qi lillrVa^eiyis 


B24D 


A2 


13 




LDX 


#$13 




41: -fnr- "RFDIM'D ARRAY" 


B24F 


A5 


OC 




LDA 


$0C 




DIM -flag zero? 


B251 


DO 


F7 




BNE 


$B24A 




no, then error message 


B253 


20 


94 


Bl 


JSR 


$B194 




pointer to TirSt ei.crllicrili. 


B256 


A5 


OB 




LDA 


$0B 




rMi(nl~ic»i^ i-i-c •frtiinr! fii fn@nsi ons 


B258 


AO 


04 




LDY 


#$04 




compare with DIM number 


B25A 


Dl 


5F 




CMP 


($5F) , 


Y 


B25C 


DO 


E7 




BNE 


$B245 




iincavyctn +-hi=»n "RAD SUBSCRIPT" 


B25E 


4C 


EA 


B2 


JMP 


$B2EA 




searches "for wanted element 




Apply array variable 


B261 


20 


94 


Bl 


JSR 


$B194 




length o-f array head 


B264 


20 


08 


A4 


JSR 


$A408 




checks on -free memory 


B267 


AO 


00 




LDY 


#$00 






B269 


84 


72 




STY 


$72 






B26B 


A2 


05 




LDX 


#$05 




□ eTaUl U Vai UB TOr Xtrliytll 


B26D 


A5 


45 




LDA 


$45 




TirSt leuuBr OT tllfcf llcxlllc; 


B26F 


91 


5F 




STA 


($5F) 




in array listing 


B271 


10 


01 




BPL 


$B274 




no integer? 


B273 


CA 






DEX 








B274 


C8 






I NY 








B275 


A5 


46 




LDA 


$46 




second leter 



A-40 



B277 


91 


5F 


STA 


(*5F) 




B279 


10 


02 


BPL 


*B27D 




B27B 


CA 




DEX 






B27C 


CA 




DEX 






B27D 


86 


71 


STX 


*71 




B27F 


A5 


OB 


LDA 


*0B 




B281 


C8 




I NY 






B282 


C8 




I NY 






B283 


C8 




I NY 






B284 


91 


5F 


STA 


(*5F) , 


pY 


B286 


A2 


OB 


LDX 


#$0B 




B288 


A9 


00 


LDA 


#*00 




B28A 


24 


OC 


BIT 


*0C 




B28C 


50 


08 


BVC 


*B296 




B28E 


68 




PLA 






B28F 


18 




CLC 






B290 


69 


01 


ADC 


#*01 




B292 


AA 




TAX 






B293 


68 




PLA 






B294 


69 


00 


ADC 


#*00 




B296 


C8 




I NY 






B297 


91 


5F 


STA 


(*5F) , 


Y 


B299 


C8 




I NY 






B29A 


8A 




TXA 






B29B 


91 


5F 


STA 


(«F) , 


Y 


B29D 


20 


4C B3 


JSR 


*B34C 




B2A0 


86 


71 


STX 


*71 




B2A2 


85 


72 


STA 


*72 




B2A4 


A4 


22 


LDY 


*22 




B2A6 


C6 


OB 


DEC 


*0B 




B2A8 


DO 


DC 


BNE 


$B286 




B2AA 


65 


59 


ADC 


*59 




B2AC 


BO 


5D 


BCS 


*B30B 




B2AE 


85 


59 


STA 


*59 




B2B0 


A8 




TAY 






B2B1 


8A 




TXA 






B2B2 


65 


58 


ADC 


*58 




B2B4 


90 


03 


BCC 


*B2B9 




B2B6 


C8 




I NY 






B2B7 


FO 


52 


BEQ 


*B30B 




B2B9 


20 


08 A4 


JSR 


*A408 




B2BC 


85 


31 


STA 


$31 




B2BE 


84 


32 


STY 


$32 




B2C0 


A9 


00 


LDA 


#$oo 




B2C2 


E6 


72 


INC 


$72 




B2C4 


A4 


71 


LDY 


$71 




B2C6 


FO 


05 


BEQ 


$B2CD 




B2C8 


88 




DEY 






B2C9 


91 


58 


STA 


($58) , 


Y 


B2CB 


DO 


FB 


BNE 


$B2C8 




B2CD 


C6 


59 


DEC 


$59 




B2CF 


C6 


72 


DEC 


$72 




B2D1 


DO 


F5 


BNE 


$B2C8 




B2D3 


E6 


59 


INC 


$59 




B2D5 


38 




SEC 






B2D6 


A5 


31 


LDA 


$31 





write into listing 
no string o-f integer? 



final variable length 2,3,5 
number o-f dimensions 



save 

11, de-fault value -for DIM's 

call by DIM command? 

no 

get dimension from stack 
add 1 



and save 

calculate free memory 

save variable-end pointer 

further dimensions? 
yes 

field length plus start- 
address 



checks on free memory 

pointer to end of listing 
fill array with O's 



A-41 



B2D8 


E5 


5F 


SBC 


$5F 




B2DA 


AO 


02 


LDY 


#*02 


array length low 


B2DC 


91 


5F 


STA 


(*5F) ,Y 


B2DE 


A5 


32 


LDA 


*32 




B2E0 


C8 




I NY 






DOC" 1 




60 


SBC 


$60 


array length high 


B2E3 


91 


5F 


STA 


(*5F) ,Y 


B2E5 


A5 


OC 


LDA 


*0C 


call -frDin DIM— command? 


B2E7 


DO 


62 


BNE 


$B34B 


yes, RTS 


***************************** 


Search -For element 


B2E9 


C8 




I NY 






B2EA 


Bl 


5F 


LDA 


(*5F) ,Y 


number of dimensions 


B2EC 


85 


OB 


STA 


$0B 


save 


B2EE 


A9 


00 


LDA 


#:^00 




B2F0 


85 


71 


STA 


*71 




B2F2 


85 


72 


STA 


*72 




B2F4 


C8 




I NY 






B2F5 


68 




PLA 






B2F6 


AA 




TAX 






B2F7 


85 


64 


STA 


$64 


get index -From stack 


B2F9 


68 




PLA 






B2FA 


85 


65 


STA 


$65 




B2FC 


Dl 


5F 


CMP 


<*5F) ,Y 


compare with value in array 


B2FE 


90 


OE 


BCC 


*B30E 


smal ler? 


B300 


DO 


06 


BNE 


*B308 


bigger, then "BAD SUBSCRIPT" 


B302 


C8 




INY 






B303 


8A 




TXA 






B304 


Dl 


5F 


CMP 


($5F) ,Y 


when even, compare low byte 


B306 


90 


07 


BCC 


*B30F 


smaller, then continue 


B308 


4C 


45 


B2 JMP 


*B245 


"BAD SUBSCRIPT" 


B30B 


4C 


35 


A4 JMP 


*A435 


"OUT OF MEMORY" 


***************************** 


Calculates address of &rray 


B30E 


C8 




INY 




element 


B30F 


A5 


72 


LDA 


*72 




B311 


05 


71 


ORA 


*71 




B313 


18 




CLC 






B314 


FO 


OA 


BEQ 


*B320 




B316 


20 


4C 


B3 JSR 


*B34C 


mul ti pi i cation 


B319 


8A 




TXA 






B31A 


65 


64 


ADC 


*64 




B31C 


AA 




TAX 






B31D 


98 




TYA 






B31E 


A4 


22 


LDY 


$22 




B320 


65 


65 


ADC 


$65 




B322 


86 


71 


STX 


$71 




B324 


C6 


OB 


DEC 


$0B 


number o-f dimensions 


B326 


DO 


CA 


BNE 


$B2F2 


continue with next index 


B328 


85 


72 


STA 


$72 




B32A 


A2 


05 


LDX 


#$05 


de-fault -for variable length 


B32C 


A5 


45 


LDA 


$45 


■first letter o-f name 


B32E 


10 


01 


BPL 


$B331 




B330 


CA 




DEX 






B331 


A5 


46 


LDA 


$46 


second letter o-f name 



A-42 



B333 


10 


02 


BPL 


*B337 


B335 


CA 




DEX 




B336 


CA 




DEX 




B337 


86 


28 


STX 


*28 


B339 


A9 


00 


LDA 


#*oo 


B33B 


20 


55 


B3 JSR 


*B355 


B33E 


8A 




TXA 




B33F 


65 


58 


ADC 


*58 


B341 


85 


47 


STA 


*47 


B343 


98 




TYA 




B344 


65 


59 


ADC 


$59 


B346 


85 


48 


STA 


$48 


B348 


A8 




TAY 




B349 


A5 


47 


LDA 


*47 


B34B 


60 




RTS 





length of variables 2,3,5 
calculate of -f set in array 



Helper for array calculation 



B34C 


84 


22 


STY 


$22 


B34E 


Bl 


5F 


LDA 


( $5F ) , Y 


B350 


85 


28 


STA 




B352 


88 




UC T 




B353 


Bl 


5F 


LDA 


( $5F ) , Y 


B355 


85 


29 


STA 


$29 


B357 


A9 


10 


LDA 


#$10 


B359 


85 


5D 


O 1 ri 


*=^n 


B35B 


A2 


00 


1 riY 

l—U A 




B35D 


AO 


00 


LDY 


#$00 


B35F 


8A 




TXA 




B360 


OA 




ASL 




B361 


AA 




TAX 




B362 


98 




TYA 




B363 


2A 




ROL 




B364 


A8 




TAY 




B365 


BO 


A4 


BCS 


$B30B 


B367 


06 


71 


ASL 


$71 


B369 


26 


72 


ROL 


$72 


B36B 


90 


OB 


BCC 


$B378 


B36D 


18 




CLC 




B36E 


8A 




TXA 




B36F 


65 


28 


ADC 


$28 


B371 


AA 




TAX 




B372 


98 




TYA 




B373 


65 


29 


ADC 


$29 


B375 


A8 




TAY 




B376 


BO 


93 


BCS 


$B30B 


B378 


C6 


5D 


DEC 


$5D 


B37A 


DO 


E3 


BNE 


$B35F 


B37C 


60 




RTS 





******************* -K-i*- **** **** 

B37D A5 OD LDA $0D 

B37F FO 03 BEQ $B384 

B381 20 A6 B6 JSR $B6A6 

B384 20 26 B5 JSR $B526 

B387 38 SEC 



BASIC-FRE function 
type flag 
no string 
FRESTR 

garbage collection 



A-43 



B388 


A5 


33 


LDA 


*33 


B38A 


E5 


31 


SBC 


*31 


B38C 


A8 




TAY 




B38D 


A5 


34 


LDA 


*34 


B38F 


E5 


32 


SBC 


*32 


B391 


A2 


00 


LDX 


#*oo 


B393 


86 


OD 


STX 


*OD 


B395 


85 


62 


STA 


$62 


B397 


84 


63 


STY 


$63 


B399 


A2 


90 


LDX 


#$90 


B39B 


4C 


44 


BC JMP 


$BC44 



***************************** 
B39E 38 SEC 
B39F 20 FO FF JSR $FFFO 
B3A2 A9 00 LDA #$00 
B3A4 FO EB BEQ $B391 

***************************** 



B3A6 


A6 


3A 




LDX 


$3A 


B3A8 


E8 






INX 




B3A9 


DO 


AO 




BNE 


$B34B 


B3AB 


A2 


15 




LDX 


#$15 


B3AD 


2C 






.BYTE $2C 


B3AE 


A2 


IB 




LDX 


#$1B 


B3B0 


4C 


37 


A4 


JMP 


$A437 


************************* 


B3B3 


20 


El 


B3 


JSR 


$B3E1 


B3B6 


20 


A6 


B3 


JSR 


$B3A6 


B3B9 


20 


FA 


AE 


JSR 


$AEFA 


B3BC 


A9 


80 




LDA 


#$80 


B3BE 


85 


10 




STA 


$10 


B3C0 


20 


86 


BO 


JSR 


$B08B 


B3C3 


20 


8D 


AD 


JSR 


$AD8D 


B3C6 


20 


F7 


AE 


JSR 


$AEF7 


B3C9 


A9 


B2 




LDA 


#$B2 


B3CB 


20 


FF 


AE 


JSR 


$AEFF 


B3CE 


48 






PHA 




B3CF 


A5 


48 




LDA 


$48 


B3D1 


48 






PHA 




B3D2 


A5 


47 




LDA 


$47 


B3D4 


48 






PHA 




B3D5 


A5 


7B 




LDA 


$7B 


B3D7 


48 






PHA 




B3D8 


A5 


7A 




LDA 


$7A 


B3DA 


48 






PHA 




B3DB 


20 


F8 


A8 


JSR 


$A8F8 


B3DE 


4C 


4F 


B4 


JMP 


$B44F 


************************** 


B3E1 


A9 


A5 




LDA 


#$A5 


B3E3 


20 


FF 


AE 


JSR 


$AEFF 


B3E6 


09 


80 




ORA 


#$80 


B3E8 


85 


10 




STA 


$10 



string start 



minus variable end 
set -flag to numeric 
save result 

and change to -floating 
point 
BASIC-POS -Function 
C=l get cursor position 
get cursor position 

continue as above 

Test on direct mode 



no, then RTS 

# ^:or "ILLEGAL QUANTIY" 

# -for "UNDEF'D FUNCTION" 
output error message 

BASIC-DEF FN command 
checks FN syntax 
checks on direct mode 
checks on parenthesis open 

blocks integer variable 

looks -for variable 

checks on numeric 

checks on parenthesis close 

"=" BASIC code 

checks on "=" 



FN variables on stack 



program pointer on stack 



pointer on next statement 
get FN variable -from stack 

Checks on FN syntax 
FN code 

checks on FN code 
blocks integer variables 



A-.44 



B3EA 


20 


92 


BO 


JSR 


*B092 


B3ED 


85 


4E 




STA 


*4E 


B3EF 


84 


4F 




STY 


*4F 


B3F1 


4C 


8D 


AD 


JMP 


$AD8D 






20 


El 


B3 


JSR 


$B3E1 


B3F7 


A5 


4F 




LDA 


:^4F 


DTCO 

tJor V 


48 






PHA 




oorft 


A5 


4E 




LDA 


*4E 


B3FC 


48 






PHA 






20 


Fl 


AE 


JSR 


*AEF1 




20 


8D 


AD 


JSR 


$AD8D 


B403 


68 






PLA 






OCT 


4E 




STA 


$4E 




68 






PLA 




B407 


85 


4F 




STA 


*4F 


lJ*fUV 


HU 


02 




LDY 


#$02 




01 


4E 




LDA 


($4E) 


B40D 


85 


47 




STA 


$47 




Hm 






TAX 






C8 






I NY 




DA 1 -1 


Bl 


4E 




LDA 


($4E) , 


RA1 T 


irn 

r\j 


OO 




0C.U 


$B3AE 




DO 


AO 
^O 




STA 


$48 


D*f 1 / 


LrO 






TKI\/ 

INY 






R1 


*r / 




1 r\/\ 


/ A"7 \ 


B41A 


/LR 






r rlH 




D*T J. £> 


RR 






r\rr\/ 




B41C 


10 






RPI 




B41E 


A4 


48 




1 nv 

L_JL/ T 


^AR 


B420 


20 


D4 


RR 


u ore 


•^RRHA 


B423 


A5 


7B 








B425 


48 






1 rir-i 




B426 




/ H 




1 r\/\ 


* /R 




AR 






rriH 






R1 


AIT 












/H 




STA 


$7A 




L.D 






INY 






R 1 


AC" 




1 r\/v 








/o 




STA 


$7B 






AQ 




L_UR 






AD 

'to 






r->i ii\ 
rMR 






HO 


AT 




LDA 


$47 




AQ 






F'HA 








OA 

oR 


/\ r\ 
v\U 


JoK 


*RUoR 




OO 






rL_R 




B43C 


85 


4E 




STA 


$4E 


B43E 


68 






PLA 




B43F 


85 


4F 




STA 


$4F 


B441 


20 


79 


00 


JSR 


$0079 


B444 


FO 


03 




BEQ 


$B449 


B446 


4C 


08 


AF 


JMP 


$AF08 


B449 


68 






PLA 




B44A 


85 


7A 




STA 


$7A 


B44C 


68 






PLA 





looks -for variable 

set FN-variable pointer 
checks on numeric 

BASIC-FN function 
checks FN syntax 

FN variable pointer on 
stack 

gets term in parenthesis 
checks on numeric 

get back FNvariable pointer 



gives "UNDEF'D FUNCTION" 



transfer FAC to FN variable 



program pointer on FN term 



FRMNUM get numeric term 



get last character 
no more characters? 
give "SYNTAX ERROR" 



program pointer 



A-45 



B44D 


85 


7B 


STA 


*7B 


B44F 


AO 


00 


LDY 


#*00 


B451 


68 




PLA 




B452 


91 


4E 


STA 


<$4E) ,Y 


B454 


68 




PLA 




B455 


C8 




I NY 




B456 


91 


4E 


STA 


(^4E) ,Y 


B458 


68 




PLA 




B459 


C8 




I NY 




B45A 


91 


4E 


STA 


($4E) , Y 


B45C 


68 




PLA 




B45D 


C8 




I NY 




B45E 


91 


4E 


STA 


($4E) ,Y 


B460 


68 




PLA 




B461 


C8 




I NY 




B462 


91 


4E 


STA 


($4E) ,Y 


B464 


60 




RTS 





and get FN variable from 
stack 



***************************** BASIC-STR* function 



B465 


20 


8D 


AD 


JSR 


$AD8D 


checks on numeric 


B468 


AO 


00 




LDY 


#*00 




B46A 


20 


DF 


BD 


JSR 


*BDDF 


change FAC to ASCII 


B46D 


68 






PLA 






B46E 


68 






PLA 






B46F 


A9 


FF 




LDA 


#*FF 




B471 


AO 


00 




LDY 


#$00 


start address of string = 


B473 


FO 


12 




BEQ 


*B487 


$FF 


***************************** 


String administration 


B475 


A6 


64 




LDX 


*64 




B477 


A4 


65 




LDY 


$65 




B479 


86 


50 




STX 


$50 


pointer to string descripl 


B47B 


84 


51 




STY 


$51 




B47D 


20 


F4 


B4 


JSR 


$B4F4 


checks free memory, sets 


B480 


86 


62 




STX 


$62 


string pointer 


B482 


84 


63 




STY 


$63 




B484 


85 


61 




STA 


$61 




B486 


60 






RTS 






B487 


A2 


22 




LDX 


#$22 


li 


B489 


86 


07 




STX 


$07 




B48B 


86 


08 




STX 


$08 




B48D 


85 


6F 




STA 


$6F 


start address of string 


B48F 


84 


70 




STY 


$70 




B491 


85 


62 




STA 


$62 




B493 


84 


63 




STY 


$63 




B495 


AO 


FF 




LDY 


#$FF 




B497 


C8 






I NY 




increase pointer 


B498 


Bl 


6F 




LDA 


($6F> ,Y 


newt character of string 


B49A 


FO 


OC 




BEQ 


$B4A8 


end symbol? 


B49C 


C5 


07 




CMP 


$07 


B49E 


FO 


04 




BEQ 


$B4A4 




B4A0 


C5 


08 




CMP 


$08 




B4A2 


DO 


F3 




BNE 


$B497 




B4A4 


C9 


22 




CMP 


#$22 


ti 


B4A6 


FO 


01 




BEQ 


$B4A9 




B4A8 


18 






CLC 







A-46 



B4A9 


84 


61 




STY 


$61 


B4AB 


98 






TYA 




B4AC 


0«-J 


or 




HULf 


*or 


D*Tr1C. 


azj 


-7 1 
/ 1 




OT/V 

1 H 


$71 




Ho 


/yj 




LDX 


$70 


B4B2 




yj 1. 




OLrL. 


$B4B5 


B4B4 


C.O 






T MV 

XNX 




B4B5 


nA 
00 






OT V 
1 A 


$72 


B4B7 


A5 


70 




L_L/H 


* / lyl 


B4B9 


FO 


04 




DElue 




B4BB 


C9 


02 




CMP 


#$02 


B4BD 


DO 


OB 




BNE 


$B4CA 


B4BF 


98 






TYA 




B4C0 


20 


75 


B4 


JSR 


$B475 


B4C3 


A6 


6F 




LDX 


$6F 


B4C5 


A4 


70 




LDY 


$70 


B4C7 


20 


88 


B6 


JSR 


$B688 


B4CA 


A6 


16 




LDX 


$16 


B4CC 


EO 


22 




CPX 


#$22 


B4CE 


DO 


05 




BNE 


$B4D5 


B4D0 


A2 


19 




LDX 


#$19 


B4D2 


4C 


37 


A4 


J MP 


$A437 


B4D5 


A5 


61 




LDA 


$61 


B4D7 


95 


00 




STA 


$00, X 


B4D9 


A5 


62 




LDA 


$62 


B4DB 


95 


01 




STA 


$01 , X 


B4DD 


A5 


63 




LDA 


$63 


B4DF 


95 


02 




STA 


$02, X 


B4E1 


AO 


00 




LDY 


#$00 


B4E3 


86 


64 




STX 


$64 


B4E5 


84 


65 




STY 


$65 


B4E7 


84 


70 




STY 


$70 


B4E9 


88 






DEY 




B4EA 


84 


OD 




STY 


$0D 


B4EC 


86 


17 




STX 


$17 


B4EE 


E8 






INX 




B4EF 


E8 






INX 




B4F0 


E8 






INX 




B4F1 


86 


16 




STX 


$16 


B4F3 


60 






RTS 




B4F4 


46 


OF 




LSR 


$0F 


B4F6 


48 






PHA 




B4F7 


49 


FF 




EOR 


#$FF 


B4F9 


38 






SEC 




B4FA 


65 


33 




ADC 


$33 


B4FC 


A4 


34 




LDY 


$34 


B4FE 


BO 


01 




BCS 


$B501 


B500 


88 






DEY 




B501 


C4 


32 




CPY 


$32 


B503 


90 


11 




BCC 


$B516 


B505 


DO 


04 




BNE 


$B50B 


B507 


C5 


31 




CMP 


$31 


B509 


90 


OB 




BCC 


$B516 


B50B 


85 


33 




STA 


$33 



length of string 



end address low +1 



end address high +1 

start address high 

zero? 

two? 

no 

string descriptor gets 

length in A, address X/Y 
gets start address 
copy string into $ range 
string descriptor pointer 
string stack full? 
no 

# for "FORMULA TO COMPLEX" 
out-put error messages 

bring string length 

and address 

into string stack 



pointer now on descriptor 



set string -flag $FF 

index o-f last string descr. 

increase by 3 

save as new index 

set back flag for garbage- 
string length collection 



A-47 



B50D 


84 


34 


STY 


*34 




B50F 


85 


35 


STA 


*35 




B511 


84 


36 


STY 


*36 




B513 


AA 




TAX 






B514 


68 




PLA 




get back string length 


B515 


60 




RTS 






B516 


A2 


10 


LDX 


#*10 


# ^:o^ "OUT OF MEMORY" 


B518 


A5 


OF 


LDA 


*0F 


-Flag -for garbage collection 


B51A 


30 


B6 


BMI 


*B4D2 


done, then "OUT OF MEMORY" 


B51C 


20 


26 


B5 JSR 


*B526 


garbage collection 


B51F 


A9 


80 


LDA 


#*80 


set -f 1 ag 


B521 


85 


OF 


STA 


*0F 




B523 


68 




PLA 




string length 


B524 


DO 


DO 


BNE 


*B4F6 




***************************** 


Garbage collection 


B526 


A6 


37 


LDX 


*37 


get rid o-f invalid strings 


B528 


A5 


38 


LDA 


*38 




B52A 


86 


33 


STX 


^f33 




B52C 


85 


34 


STA 


*34 




B52E 


AO 


00 


LDY 


#*00 




B530 


84 


4F 


STY 


*4F 




B532 


84 


4E 


STY 


*4E 




B534 


A5 


31 


LDA 


*31 




B536 


A6 


32 


LDX 


*32 




B538 


85 


5F 


STA 


*5F 




B53A 


86 


60 


STX 


*60 




B53C 


A9 


19 


LDA 


#^19 




B53E 


A2 


00 


LDX 


#*00 




B540 


85 


22 


STA 


*22 




B542 


86 


23 


STX 


*23 




B544 


C5 


16 


CMP 


$16 




B546 


FO 


05 


BEQ 


*B54D 




B548 


20 


C7 


B5 JSR 


$B5C7 




B54B 


FO 


F7 


BEQ 


*B544 




B54D 


A9 


07 


LDA 


#*07 




B54F 


85 


53 


STA 


*53 




B551 


A5 


2D 


LDA 


$2D 




B553 


A6 


2E 


LDX 


*2E 




B555 


85 


22 


STA 


*22 




B557 


86 


23 


STX 


$:23 




B559 


E4 


30 


CPX 


*30 




B55B 


DO 


04 


BNE 


*B561 




B55D 


C5 


2F 


CMP 


*2F 




B55F 


FO 


05 


BEQ 


$B566 




B561 


20 


BD 


B5 JSR 


*B5BD 




B564 


FO 


F3 


BEQ 


$B559 




B566 


85 


58 


STA 


$58 




B568 


86 


59 


STX 


$59 




B56A 


A9 


03 


LDA 


#*03 




B56C 


85 


53 


STA 


$:53 




B56E 


A5 


58 


LDA 


$58 




B570 


A6 


59 


LDX 


*59 




B572 


E4 


32 


CPX 


$32 




B574 


DO 


07 


BNE 


*B57D 





B576 


C5 


31 




CMP 


*31 




B578 


DO 


03 




BNE 


*B57D 




B57A 


4C 


06 


B6 


J MP 


$B606 




B57D 


85 


22 




STA 


$22 




B57F 


86 


23 




STX 


*23 




B58i 


AO 


OO 




LDY 


#$00 




B583 


Bl 


22 




LDA 


($22) , 


Y 


B585 


AA 






TAX 






B586 


C8 






I NY 






B587 


Bl 


22 




LDA 


($22) , 


Y 


B589 


08 






PHP 






B58A 


C8 






I NY 






B58B 


Bl 


22 




LDA 


($22) , 


V 


B58D 


65 


58 




ADC 


$^58 




B58F 


85 


58 




STA 


$5Q 




B591 


C8 






I NY 






B592 


Bl 


22 




LDA 


($22) , 


Y 


B594 


65 


59 




ADC 


$59 




B596 


85 


59 




STA 


*59 




B598 


28 






PLP 






B599 


10 


D3 




BPL 


*B56E 




B59B 


8A 






TXA 






B59C 


30 


DO 




BMI 


*B56E 




B59E 


C8 






I NY 






B59F 


Bl 


22 




LDA 


(*22) , 


Y 


B5A1 


AO 


00 




LDY 


#*00 




B5A3 


OA 






ASL 






B5A4 


69 


05 




ADC 


#$05 




B5A6 


65 


22 




ADC 


$22 




B5A8 


85 


22 




STA 


$22 




B5AA 


90 


02 




BCC 


$B5AE 




B5AC 


E6 


23 




INC 


$23 




B5AE 


A6 


23 




LDX 


$23 




B5B0 


E4 


59 




CPX 


$59 




B5B2 


DO 


04 




BNE 


$B5B8 




B5B4 


C5 


58 




CMP 


$58 




B5B6 


FO 


BA 




BEQ 


$B572 




B5B8 


20 


C7 


B5 


JSR 


$B5C7 




B5BB 


FO 


F3 




BEG 


$B5B0 




B5BD 


Bl 


22 




LDA 


($22) , 


Y 


B5BF 


30 


35 




BMI 


$B5F6 




B5C1 


C8 






I NY 






B5C2 


Bl 


22 




LDA 


<$22) , 


Y 


B5C4 


10 


30 




BPL 


$B5F6 




B5C6 


C8 






I NY 






B5C7 


Bl 


22 




LDA 


($22) , 


Y 


B5C9 


FO 


2B 




BEQ 


$B5F6 




B5CB 


C8 






I NY 






B5CC 


Bl 


22 




LDA 


($22) , 


Y 


B5CE 


AA 






TAX 






B5CF 


C8 






I NY 






B5D0 


Bl 


22 




LDA 


($22) , 


Y 


B5D2 


C5 


34 




CMP 


$34 




B5D4 


90 


06 




BCC 


$B5DC 




B5D6 


DO 


IE 




BNE 


$B5F6 




B5D8 


E4 


33 




CPX 


$33 





A-49 



BO 


lA 


BCS 


*B5F6 




C5 


60 


CMP 


$^60 




90 


16 


BCC 


$B5F6 




DO 


04 


BNE 


$B5E6 




E4 


5F 


CPX 


$5F 




90 


10 


BCC 


$B5F6 




86 


5F 


STX 


*5F 




85 


60 


STA 


$60 




A5 


22 


LDA 


$22 




A6 


23 


LDX 


*23 




85 


4E 


STA 


*4E 




86 


4F 


STX 


*4F 




A5 


53 


LDA 


*53 




85 


55 


STA 


*:55 




A5 


53 


LDA 


$53 




18 




CLC 






65 


22 


ADC 


*22 




85 


22 


STA 


*22 




90 


02 


BCC 


$B601 




E6 


23 


INC 


*23 




A6 


23 


LDX 


$23 




AO 


00 


LDY 


#*00 




60 




RTS 






A5 


4F 


LDA 


*4F 




05 


4E 


ORA 


*4E 




FO 


F5 


BEG 


$B601 




A5 


55 


LDA 


*55 




29 


04 


AND 


#*04 




4A 




LSR 






A8 




TAY 






85 


55 


STA 


*55 




Bl 


4E 


LDA 


($4E) 


,Y 


65 


5F 


ADC 


*5F 




85 


5A 


STA 


*5A 




A5 


60 


LDA 


$60 




69 


00 


ADC 


#$00 




85 


5B 


STA 


$5B 




A5 


33 


LDA 


$33 




A6 


34 


LDX 


$34 




85 


58 


STA 


$58 




86 


59 


STX 


$59 




20 


BF 


A3 JSR 


$A3BF 




A4 


55 


LDY 


$55 




C8 




I NY 






A5 


58 


LDA 


$58 




91 


4E 


STA 


($4E) 


,Y 


AA 




TAX 






E6 


59 


INC 


$59 




A5 


59 


LDA 


$59 




C8 




I NY 






91 


4E 


STA 


($4E) 




4C 


2A 


B5 JMP 


$B52A 





B5DA 
B5DC 
B5DE 
B5E0 
B5E2 
B5E4 
B5E6 
B5E8 
B5EA 
B5EC 
B5EE 
B5F0 
B5F2 
B5F4 
B5F6 
B5F8 
B5F9 
B5FB 
B5FD 
B5FF 
B601 
B603 
B605 
B606 
B608 
B60A 
B60C 
B60E 
B610 
B611 
B612 
B614 
B616 
B618 
B61A 
B61C 
B61E 
B620 
B622 
B624 
B626 
B628 
B62B 
B62D 
B62E 
B630 
B632 
B633 
B635 
B637 
B638 
B63A 

***************************** String connection "+" 
B63D A5 65 LDA $65 



A-50 



B63F 48 PHA 

B640 A5 64 LDA *64 

B642 48 PHA 

B643 20 83 AE JSR *AE83 

B646 20 8F AD JSR *AD8F 

B649 68 PLA 

B64A 85 6F STA *6F 

B64C 68 PLA 

B64D 85 70 STA *70 

B64F AO 00 LDY #*00 

B651 Bl 6F LDA (*6F) ,Y 

B653 18 CLC 

B654 71 64 ADC (*64) ,Y 

B656 90 05 BCC *B65D 

B658 A2 17 LDX #$17 

B65A 4C 37 A4 JMP *A437 

B65D 20 75 B4 JSR *B475 

B660 20 7A B6 JSR *B67A 

B663 A5 50 LDA $50 

B665 A4 51 LDY $51 

B667 20 AA B6 JSR $B6AA 

B66A 20 8C B6 JSR *B68C 

B66D A5 6F LDA $6F 

B66F A4 70 LDY $70 

B671 20 AA B6 JSR $B6AA 

B674 20 CA B4 JSR *B4CA 

B677 4C B8 AD JMP *ADB8 



B67A 


AO 


00 


B67C 


Bl 


6F 


B67E 


48 




B67F 


C8 




B680 


Bl 


6F 


B682 


AA 




B683 


C8 




B684 


Bl 


6F 


B686 


A8 




6687 


68 




B688 


86 


22 


B68A 


84 


23 


B68C 


A8 




B68D 


FO 


OA 


B68F 


48 




B690 


88 




B691 


Bl 


22 


B693 


91 


35 


B695 


98 




B696 


DO 


F8 


B698 


68 




B699 


18 




B69A 


65 


35 


B69C 


85 


35 


B69E 


90 


02 


B6A0 


E6 


36 


B6A2 


60 





LDY #$00 
LDA (*6F),Y 
PHA 
I NY 

LDA (*6F),Y 

TAX 

I NY 

LDA ($6F),Y 

TAY 

PLA 

STX *22 
STY *23 
TAY 

BEQ $B699 

PHA 

DEY 

LDA (*22),Y 
STA ($35), Y 
TYA 

BNE *B690 

PLA 

CLC 

ADC $35 
STA $35 
BCC $B6A2 
INC $36 
RTS 



save descriptor o-f -first 
string 
^desc. 

get address of 2nd strings 
checks on string variable 



get back descriptor 



length o-f first string 

plus length of 2nd string 
smaller than 256 
# for "STRING TOO LONG" 
out-put error messages 
save place for new string 
transfer first string there 

pointer to second string 
FRESTR descriptor 
connect second string with 
the first string 

FRESTR 

descriptor in string stack 
back to formula evaluation 

save string length 



string address low 



string address high 
string length 
pointer to string 
length zero, then ready 



transfer string 



pointer plus string length 



A- 



51 



***************************** 

B6A3 20 BF AD JBR *AD8F 
A5 64 LDA 
A4 65 LDY *65 
85 22 STA *22 
84 23 STY *23 
20 DB B6 JSR *B6DB 



String administration FRESTR 
checks on string variable 



B6A6 
B6A8 
B6AA 
B6AC 
B6AE 
B6B1 
B6B2 
B6B4 
B6B6 
B6B7 
B6B8 
B6BA 
B66B 
B6BC 
B6BE 
B6BF 
B6C0 
B6C1 
B6C3 
B6C5 
B6C7 
B6C9 
B6CB 
B6CC 
B6CD 
B6CF 
B6D1 
B6D3 
B6D5 
B6D6 
B6D8 
B6DA 
B6DB 
B6DD 
B6DF 
B6E1 
B6E3 
B6E5 
B6E7 
B6E9 
B6EB 



08 

AO 00 
Bl 22 
48 
C8 

Bl 22 

AA 

C8 

Bl 22 
A8 
68 
28 

DO 13 
C4 34 
DO OF 
E4 33 
DO OB 
48 
18 

65 33 

85 33 
90 02 
E6 34 
68 

86 22 

84 23 
60 

C4 18 
DO OC 
C5 17 
DO 08 

85 16 
E9 03 
85 17 
AO 00 
60 



PHP 

LDY #*00 
LDA (*22) ,Y 
PHA 
I NY 

LDA (*22),Y 

TAX 

INY 

LDA <*22) ,Y 

TAY 

PLA 

PLP 

BNE $B6D6 
CPY *34 
BNE $B6D6 
CPX *33 
BNE *B6D6 
PHA 
CLC 

ADC *33 
STA *33 
BCC $B6D5 
INC *34 
PLA 

STX *22 
STY *23 
RTS 

CPY *18 
BNE $B6EB 
CMP *17 
BNE *B6EB 
STA *16 
SBC #*03 
STA *:17 
LDY #*00 
RTS 



poi 



ntr to string descriptor 



eliminate descriptor from 
string stack 



string wasn't in string 
stack 



*33/*34 now point to string 

stack 



is string descriptor in 
string stack 

yes, eliminate input 



^t.##^(.4t************************ 

B6EC 20 Al B7 JSR *B7A1 

B6EF 8A TXA 

B6F0 48 PHA 

B6F1 A9 01 LDA #*01 

B6F3 20 7D B4 JSR *B47D 

B6F6 68 PLA 

B6F7 AO 00 LDY tt*00 

B6F9 91 62 STA (*62) ,Y 



BASIC-CHR* -function 
gets byte value (O to 255) 
code in accumulator 

length of string = 1 
reserve place for string 
get back ASCII code 

save all string characters 



A-52 



B6FB 68 PLA 
B6FC 68 PLA 
B6FD 4C CA B4 JMP «4CA 



B700 


20 


61 


B7 


JSR 


*B761 


B703 


Di 


50 




CMP 


(*50) ,Y 


B705 


98 






TYA 




B706 


90 


04 




BCC 


*B70C 


B708 


Bl 


50 




LDA 


(*50) ,Y 


B70A 


AA 






TAX 




B70B 


98 






TYA 




B70C 


48 






PHA 




B70D 


8A 






TXA 




B70E 


48 






PHA 




B70F 


20 


7D 


B4 


JSR 


*B47D 


B712 


A5 


50 




LDA 


*50 


B714 


A4 


51 




LDY 


$51 


B716 


20 


AA 


B6 


JSR 


$B6AA 


B719 


68 






PLA 




B71A 


A8 






TAY 




B71B 


68 






PLA 




B71C 


18 






CLC 




B71D 


65 


22 




ADC 


$22 


B71F 


85 


22 




STA 


$22 


B721 


90 


02 




BCC 


*B725 


B723 


E6 


23 




INC 


$23 


B725 


98 






TYA 




B726 


20 


8C 


B6 


JSR 


$B68C 


B729 


4C 


CA 


B4 


JMP 


*B4CA 




B72C 


20 


61 


B7 


JSR 


*B761 


B72F 


18 






CLC 




B730 


Fl 


50 




SBC 


(*50) ,Y 


B732 


49 


FF 




EOR 


#*FF 


B734 


4C 


06 


B7 


JMP 


*B706 




B737 


A9 


FF 




LDA 


#*FF 


B739 


85 


65 




STA 


*65 


B73B 


20 


79 


00 


JSR 


*0079 


B73E 


C9 


29 




CMP 


#$29 


B740 


FO 


06 




BEQ 


*B748 


B742 


20 


FD 


AE 


JSR 


*AEFD 


B745 


20 


9E 


B7 


JSR 


*B79E 


B748 


20 


61 


B7 


JSR 


$B761 


B74B 


FO 


4B 




BEQ 


*B798 


B74D 


CA 






DEX 




B74E 


8A 






TXA 




B74F 


48 






PHA 




B750 


18 






CLC 




B751 


A2 


00 




LDX 


#*00 


B753 


Fl 


50 




SBC 


(*50) ,Y 


B755 


BO 


B6 




BCS 


*B70D 


B757 


49 


FF 




EOR 


#$FF 



bring descriptor to string 

stack 

BASIC-LEFT* -Function 
string parameter -from stack 
compare length with LEFT* 
parameter 
is LEFT value less than 
string length/string length 



save place -for new string 

pointer to descriptor 
FRESTR 



length of new string 

plus address o-f old string 



transfer newstring to range 
bring descriptor to string 

stack 

BASIC-RIGHT* function 
get string parameter from 
stack 

first element's # in old 
continue as in LEFT*/string 

BASIC-MID* function 



CHRGOT get last character 
")" closed parenthesis 

checks on comma 
gets byte #, 2nd parameter 
get string address, 1st " 
first parameter zero, 

"ILLEGAL QUANTITY" 

# of first element in old 
string 

length of old string 
small, first MID parameter 
new string length 



B759 


C5 


65 


CMP 


*65 


B75B 


90 


Bl 


BCC 


$B70E 


B75D 


A5 


65 


LDA 


$65 


B75F 


BO 


AD 


BCS 


*B70E 


B761 


20 


F7 AE 


JSR 


*AEF7 


B764 


68 




PLA 




B765 


A8 




TAY 




B766 


68 




PLA 




B767 


85 


55 


STA 


$55 


B769 


68 




PLA 




B76A 


68 




PLA 




B76B 


68 




PLA 




B76C 


AA 




TAX 




B76D 


68 




PLA 




B76E 


85 


50 


STA 


$50 


B770 


68 




PLA 




B771 


85 


51 


STA 


$51 


B773 


A5 


55 


LDA 


$55 


B775 


48 




PHA 




B776 


98 




TYA 




B777 


48 




PHA 




B778 


AO 


OO 


LDY 


#$00 


B77A 


8A 




TXA 




B77B 


60 




RTS 





absolute Jump 

checks on close parethesis 
get call address 

•first parameter 

address low/high of string 
descriptor 

last address back on stack 



B77C 20 82 B7 JSR $B782 

B77F 4C A2 B3 JMP $B3A2 

***************************** 

B782 20 A3 B6 JSR $B6A3 

B785 A2 00 LDX #$00 

B787 86 OD STX $0D 

B789 A8 TAY 

B78A 60 RTS 



BASIC-LEN -function 
FRESTR get string length 
change byte to -floating 

point -format 

Get string parameter 
get string length in A 

set type -flag on numeric 
length in Y 



***************************** 

B78B 20 82 B7 JSR $B782 

B78E FO 08 BEQ $B798 

B790 AO 00 LDY #$00 

B792 Bl 22 LDA ($22) ,Y 

B794 A8 TAY 

B795 4C A2 B3 JMP $B3A2 

B798 4C 48 B2 JMP ^B248 



BASIC-ASC -function 
get $ pointer in $22/$23 
length = O, "ILLEGAL 

QUANTITY" 
get -first character 
ASCII code 

change to -floating point 
"ILLEGAL QUANTITY" 



B79B 20 73 00 JSR $0073 

B79E 20 8A AD JSR $AD8A 

B7A1 20 B8 Bl JSR $B1B8 

B7A4 A6 64 LDX $64 

B7A6 DO FO BNE $B798 

B7A8 A6 65 LDX $65 

B7AA 4C 79 00 JMP $0079 



Gets byt value to X 
CHRGET get next character 
FRMNUM get # value to FAC 
checks on range and changes 
high byte to integer 

not O, "ILLEGAL QUANTITY" 

CHRGOT get last character 



A-54 



BASIC-VAL function 



B7AD 


20 


82 


B7 


JSR 


*B782 


get string address and 


B7B0 


DO 


03 




BNE 


*B7B5 


length not 0? length 


B7B2 


4C 


F7 


B8 


J MP 


*B8F7 


zero in FAC 


B7B5 


A6 


7A 




LDX 


*7A 




B7B7 


A4 


7B 




LDY 


*7B 


save program pointer 


B7B9 


86 


71 




STX 


*71 




B7BB 


84 


72 




STY 


*72 




B7BD 


A6 


22 




LDX 


*22 




B7BF 


86 


7A 




STX 


*7A 


bring string start— address 


B7C1 


18 






CLC 




into string— pointer 


B7C2 


65 


22 




ADC 


*22 


B7C4 


85 


24 




STA 


*24 




B7C6 


A6 


23 




LDX 


*23 


string end+1 


B7C8 


86 


7B 




STX 


*7B 




B7CA 


90 


01 




BCC 


*B7CD 




B7CC 


E8 






INX 






B7CD 


86 


25 




STX 


*25 




B7CF 


AO 


00 




LDY 


#*00 




B7D1 


Bl 


24 




LDA 


(*24) ,Y 


■first byte to string 


B7D3 


48 






PHA 




save 


B7D4 


98 






TYA 






B7D5 


91 


24 




STA 


($24) ,Y 


and substitute Mith zero 


B7D7 


20 


79 


00 


JSR 


$0079 


CHRGOT get last character 


B7DA 


20 


F3 


BC 


JSR 


$BCF3 


change string to floating 


B7DD 


68 






PLA 




character to string/point 


D/Ut 


/\r\ 


uu 




LDY 


#$00 




B7E0 


91 


24 




STA 


($24) ,Y 


set back again 


B7E2 


A6 


71 




LDX 


$71 


B7E4 


A4 


72 




LDY 


$72 




B7E6 


86 


7A 




STX 


$7A 


get back program pointer 


B7E8 


84 


7B 




STY 


$7B 




B7EA 


60 






RTS 








GET ADR and GETBYT 16 + 8 bit 


B7EB 


20 


8A 


AD 


JSR 


$AD8A 


FRMNUM gets numeric value 


B7EE 


20 


F7 


B7 


JSR 


$B7F7 


change FAC to address frmat 


B7F1 


20 


FD 


AE 


JSR 


$AEFD 


CHKCDM checks on camma 


B7F4 


4C 


9E 


B7 


JMP 


$B79E 


gets byte value to X 




GET ADR change FAC to a + 16 


B7F7 


A5 


66 




LDA 


$66 


sign bit number 


B7F9 


30 


9D 




BMI 


$B798 


- then "ILLEGAL QUANTITY" 


B7FB 


A5 


61 




LDA 


$61 


exponent 


B7FD 


C9 


91 




CMP 


#$91 


compare # to 65536 


B7FF 


BO 


97 




BCS 


$B798 


bigger ILLEGAL QUANTITY" 


B801 


20 


9B 


BC 


JSR 


$BC9B 


change FAC to address frmat 


B804 


A5 


64 




LDA 


$64 




B806 


A4 


65 




LDY 


$65 


get value 


B808 


84 


14 




STY 


$14 


and to $14/$15 


B80A 


85 


15 




STA 


$15 




B80C 


60 






RTS 






***************************** 


BASIC-PEEK function 


B80D 


A5 


15 




LDA 


$15 




B80F 


48 






PHA 




save address $14/$15 


B810 


A5 


14 




LDA 


$14 





A-55 



B812 


48 






PHA 




B813 


20 


F7 


B7 


JSR 


*B7F7 


B816 


AO 


00 




LDY 


#$00 


B818 


Bl 


14 




LDA 


(*14) ,Y 


B81A 


A8 






TAY 




B81B 


68 






PLA 




B31C 


85 


14 




STA 


*14 


B81E 


68 






PLA 




B81F 


85 


15 




STA 


$15 


B821 


4C 


A2 


B3 


JMP 


$B3A2 




B824 


20 


EB 


B7 


JSR 


*B7EB 


B827 


8A 






TXA 




B828 


AO 


00 




LDY 


#*00 


B82A 


91 


14 




STA 


($14) ,Y 


B82C 


60 






RTS 






B82D 


20 


EB 


B7 


JSR 


$B7EB 


B830 


86 


49 




STX 


$49 


B832 


A2 


00 




LDX 


#$00 


B834 


20 


79 


00 


JSR 


$0079 


B837 


FO 


03 




BEQ 


$B83C 


B839 


20 


Fl 


B7 


JSR 


$B7F1 


B83C 


86 


4A 




STX 


$4A 


B83E 


AO 


00 




LDY 


#$00 


B840 


Bl 


14 




LDA 


($14) ,Y 


B842 


45 


4A 




EOR 


$4A 


B844 


25 


49 




AND 


$49 


B846 


FO 


F8 




BEQ 


$B840 


B848 


60 






RTS 





B849 A9 11 LDA #$11 

B84B AO BF LDY #$BF 

B84D 4C 67 B8 JMP $B867 

B850 20 8C BA JSR $BA8C 



B853 


A5 


66 


LDA 


$66 


B855 


49 


FF 


EOR 


#$FF 


B857 


85 


66 


STA 


$66 


B859 


45 


6E 


EOR 


$6E 


B85B 


85 


6F 


STA 


$6F 


B85D 


A5 


61 


LDA 


$61 


B85F 


4C 


6A 


B8 JMP 


$B86A 



B862 20 99 B9 JSR $B999 
B865 90 3C BCC $B8A3 



change FAC to address -Frmat 

get PEEK value 
to Y 



get back address 

Y to floating point -format 

BASIC-POKE command 
get POKE address and value 
write POKE value into accu 

and memory 

BASIC-WAIT command 
get address and value 

de-fault -for third parameter 
CHRGOT get last character 
no third parameter? 
checks on comma and gets 
parameter 

wait address 

connect logically 
keep waiting 



Arithmetic routines 

FAC = FAC -1-0-5 

pointer on constant 0-5 
FAC = FAC + constant (A/Y) 

Minus FAC=constant (A/Y) -FAC 
constant (A/Y) to ARG 

Minus FAC = ARG-FAC 

change o-f sign 



FAC = FAC + ARG 



adjust exponent of FAC + ARG 



A-56 



B867 20 8C BA JSR $BA8C 



Plus FAC = constant (A/Y)+FAC 
constant (A/Y) to ARB 



B86A 


DO 


03 




BNE 


$B86F 


B86C 


4C 


FC 


BB 


JMP 


*BBFC 


B86F 


A6 


70 




LDX 


*70 


B871 


86 


56 




STX 


$56 


B873 


A2 


69 




LDX 


#*69 


B875 


A5 


69 




LDA 


*69 


B877 


A8 






TAY 




B878 


FO 


CE 




BEQ 


$B848 


B87A 


38 






SEC 




B87B 


E5 


61 




SBC 


$61 


B87D 


FO 


24 




BEQ 


$B8A3 


B87F 


90 


12 




BCC 


$B893 


B881 


84 


61 




STY 


$61 


B883 


A4 


6E 




LDY 


$6E 


B885 


84 


66 




STY 


$66 


B887 


49 


FF 




EOR 


#$FF 


B889 


69 


OO 




ADC 


#$00 


B88B 


AO 


00 




LDY 


#$00 


B88D 


84 


56 




STY 


$56 


B88F 


A2 


61 




LDX 


#$61 


B891 


DO 


04 




BNE 


$B897 


B893 


AO 


00 




LDY 


#$00 


B895 


84 


70 




STY 


$70 


B897 


C9 


F9 




CMP 


#$F9 


6899 


30 


C7 




BMI 


$B862 


B89B 


A8 






TAY 




B89C 


A5 


70 




LDA 


$70 


B89E 


56 


01 




LSR 


$01, X 


B8A0 


20 


BO 


B9 


JSR 


$B9B0 


B8A3 


24 


6F 




BIT 


$6F 


B8A5 


10 


57 




BPL 


$B8FE 


B8A7 


AO 


61 




LDY 


#$61 


B8A9 


EO 


69 




CPX 


#$69 


B8AB 


FO 


02 




BEQ 


$B8AF 


B8AD 


AO 


69 




LDY 


#$69 


B8AF 


38 






SEC 




B8B0 


49 


FF 




EOR 


#$FF 


B8B2 


65 


56 




ADC 


$56 


B8B4 


85 


70 




STA 


$70 


BSBto 


B9 


04 


00 


LDA 


$0004 , Y 


B8B9 


F5 


04 




SBC 


$04, X 


B8BB 


85 


65 




STA 


$65 


BSBD 


B9 


03 


00 


LDA 


$0003 , Y 


B8C0 


F5 


03 




SBC 


$03, X 


B8C2 


85 


64 




STA 


$64 


B8C4 


B9 


02 


00 


LDA 


$0002, Y 


BaC7 


F5 


02 




SBC 


$02, X 


B8C9 


85 


63 




STA 


$63 


BSCB 


B9 


01 


00 


LDA 


$000 1,Y 


BSCE 


F5 


01 




SBC 


$01, X 



Plus FAC = FAC + ARB 
FAC inverse zero? 
no, the FAC = ARG 



A-57 



B8D0 85 62 STA *62 

B8D2 BO 03 BCS *B8D7 

B8D4 20 47 B9 JSR *B947 invert mantisse from FAC 

B8D7 AO OO LDY #*00 

B8D9 98 TYA 

B8DA 18 CLC 

B8DB A6 62 LDX $62 

B8DD DO 4A BNE *B929 

B8DF A6 63 LDX $63 

B8E1 86 62 STX $62 

B8E3 A6 64 LDX $64 

B8E5 86 63 STX $63 

B8E7 A6 65 LDX $65 

B8E9 86 64 STX $64 

B8EB A6 70 LDX $70 

B8ED 86 65 STX $65 

B8EF 84 70 STY $70 

B8F1 69 08 ADC #$08 

B8F3 C9 20 CMP #$20 

B8F5 DO E4 BNE $B8DB 

B8F7 A9 00 LDA #$00 

B8F9 85 61 STA $61 

B8FB 85 66 STA $66 

B8FD 60 RTS 

B8FE 65 56 ADC $56 

B900 85 70 STA $70 

B902 A5 65 LDA $65 

B904 65 6D ADC $6D 

B906 85 65 STA $65 

B908 A5 64 LDA $64 

B90A 65 6C ADC $6C 

B90C 85 64 STA $64 

B90E A5 63 LDA $63 

B910 65 6B ADC $6B 

B912 85 63 STA $63 

B914 A5 62 LDA $62 

B916 65 6 A ADC $6 A 

B918 85 62 STA $62 

B91A 4C 36 B9 JMP $B936 

B91D 69 01 ADC #$01 

B91F 06 70 ASL $70 

B921 26 65 ROL $65 

B923 26 64 ROL $64 

B925 26 63 ROL $63 

B927 26 62 ROL $62 

B929 10 F2 BPL $B91D 

B92B 38 SEC 

B92C E5 61 SBC $61 

B92E BO C7 BCS $B8F7 

B930 49 FF EOR #$FF 

B932 69 01 ADC #$01 

B934 85 61 STA $61 

B936 90 OE BCC $B946 

B938 E6 61 INC $61 

B93A FO 42 BEQ $B97E 



A-58 



B93C 


66 


62 


ROR 


*62 


B93E 


66 


63 


ROR 


*63 


B940 


66 


64 


ROR 


$64 


B942 


66 


65 


ROR 


*65 


B944 


66 


70 


ROR 


$70 


B946 


60 




RTS 





Invert mantisse from FAC 



B947 


A5 


66 


LDA 


$66 


B949 


49 


FF 


EOR 


#$FF 


B94B 


85 


66 


STA 


$66 


B94D 


A5 


62 


LDA 


$62 


B94F 


49 


FF 


EOR 


#$FF 


B951 


85 


62 


STA 


$62 


B953 


A5 


63 


LDA 


$63 


B955 


49 


FF 


EOR 


#$FF 


B957 


85 


63 


STA 


$63 


B959 


A5 


64 


LDA 


$64 


B95B 


49 


FF 


EOR 


#$FF 


B95D 


85 


64 


STA 


$64 


B95F 


A5 


65 


LDA 


$65 


B961 


49 


FF 


EOR 


#$FF 


B963 


85 


65 


STA 


$65 


B965 


A5 


70 


LDA 


$70 


B967 


49 


FF 


EOR 


#$FF 


B969 


85 


70 


STA 


$70 


B96B 


E6 


70 


INC 


$70 


B96D 


DO 


OE 


BNE 


$B97D 


B96F 


E6 


65 


INC 


$65 


B971 


DO 


OA 


BNE 


$B97D 


B973 


E6 


64 


INC 


$64 


B975 


DO 


06 


BNE 


$B97D 


B977 


E6 


63 


INC 


$63 


B979 


DO 


02 


BNE 


$B97D 


B97B 


E6 


62 


INC 


$62 


B97D 


60 




RTS 




B97E 


A2 


OF 


LDX 


#$0F 


B980 


4C 


37 


A4 JMP 


$A437 




B9B3 


A2 


25 


LDX 


#$25 


B985 


B4 


04 


LDY 


$04, X 


B987 


84 


70 


STY 


$70 


B989 


B4 


03 


LDY 


$03, X 


B98B 


94 


04 


STY 


$04, X 


B9aD 


B4 


02 


LDY 


$02, X 


B98F 


94 


03 


STY 


$03, X 


B991 


B4 


01 


LDY 


$01, X 


B993 


94 


02 


STY 


$02, X 


B995 


A4 


68 


LDY 


$68 


B997 


94 


01 


STY 


$01, X 


B999 


69 


08 


ADC 


#$08 


B99B 


30 


E8 


BMI 


$B985 


B99D 


FO 


E6 


BEQ 


$B985 


B99F 


E9 


08 


SBC 


#$08 



# for "OVERFLOW" 
out— put error message 

Right-shi-f ting of a register 
offset pointer on register 



A-59 



B9A1 


A8 




TAY 




B9A2 


AS 


70 


LDA 


*70 


B9A4 


BO 


14 


BCS 


$B9BA 


B9A6 


16 


01 


ASL 


$01, X 


B9A8 


90 


02 


BCC 


«9AC 


B9AA 


F6 


01 


INC 


*01,X 


B9AC 


76 


01 


ROR 


*oi,x 


B9AE 


76 


01 


ROR 


*01,X 


B9B0 


76 


02 


ROR 


*02,X 


B9B2 


76 


03 


ROR 


*03,X 


B9B4 


76 


04 


ROR 


$04, X 


B9B6 


6A 




ROR 




B9B7 


C8 




I NY 




B9B8 


DO 


EC 


BNE 


*B9A6 


B9BA 


18 




CLC 




B9BB 


60 




RTS 





B9BC 81 00 00 00 00 
B9C1 03 

B9C2 7F 5E 56 CB 79 
B9C7 80 13 9B OB 64 
B9CC 80 76 38 93 16 
B9D1 82 38 A A 3B 20 
B9D5 20 80 35 04 F3 
B9DB 81 35 04 F3 34 
B9E0 80 80 00 00 00 
B9E5 80 31 72 17 F8 

***************************** 



B9EA 


20 


2B 


BC 


JSR 


*BC2B 


B9ED 


FO 


02 




BEQ 


$B9F1 


B9EF 


10 


03 




BPL 


*B9F4 


B9F1 


4C 


48 


B2 


JMP 


$B248 


B9F4 


A5 


61 




LDA 


$61 


B9F6 


E9 


7F 




SBC 


#$7F 


B9F8 


48 






PHA 




B9F9 


A9 


80 




LDA 


#$80 


B9FB 


85 


61 




STA 


$61 


B9FD 


A9 


D6 




LDA 


#$D6 


B9FF 


AO 


B9 




LDY 


#$B9 


BAOl 


20 


67 


B8 


JSR 


$B867 


BA04 


A9 


DB 




LDA 


#$DB 


BA06 


AO 


B9 




LDY 


#$B9 


BA08 


20 


OF 


BB 


JSR 


$BB0F 


BAOB 


A9 


BC 




LDA 


#$BC 


BAOD 


AO 


B9 




LDY 


#$B9 


BAOF 


20 


50 


B8 


JSR 


$B850 


BA12 


A9 


CI 




LDA 


#$C1 


BA14 


AO 


B9 




LDY 


#$B9 


BA16 


20 


43 


EO 


JSR 


$E043 


BA19 


A9 


EO 




LDA 


#$E0 


BAIB 


AO 


B9 




LDY 


#$B9 


BAID 


20 


67 


B8 


JSR 


$B867 



Constants -for 
1 

3=polynDmial 
. 434255942 
.576584541 
.961800759 
2-88539007 
.707106781 = 
1.41421356 = 
-.5 

-693147181 = 



LOG 

degree then 4 
/coe-f -f icients 

1/SQR(2) 
SQR(2) 

LOB (2) 



BASIC-LOG function 
get signs 
zero, then ready 
positive, then ok 
"ILLEGAL QUANTITY" 
exponent 
normalize 
and save 

bring number in range 
-From 0.5 to 1 

pointer to constant 1 /SQR (2) 
add to FAC 

pointer to constant SQR (2) 
divide SQR (2) by FAC 

pointer to constant 1 
1 minus FAC 

pntr — polynome coe-f -f i ci ents 
polynome calculations 

pointer to constant -0-5 
add to FAC 



A-60 



BA20 68 PLA 

BA21 20 7E BD JSR *BD7E 

BA24 A9 E5 LDA #*E5 

BA26 AO B9 LDY #*B9 

BA28 20 8C BA JSR $:BA8C 



BA2B 


DO 


03 




BNE 


*BA30 


BA2D 


4C 


8B 


BA 


JMP 


$BA8B 


BA30 


20 


B7 


BA 


JSR 


*BAB7 


BA33 


A9 


00 




LDA 


#*00 


BA35 


85 


26 




STA 


$26 


BA37 


85 


27 




STA 


$27 


BA39 


85 


28 




STA 


«8 


BA3B 


85 


29 




STA 


*29 


BA3D 


A5 


70 




LDA 


*70 


BA3F 


20 


59 


BA 


JSR 


*BA59 


BA42 


AS 


65 




LDA 


$65 


BA44 


20 


59 


BA 


JSR 


*BA59 


BA47 


AS 


64 




LDA 


*64 


BA49 


20 


59 


BA 


JSR 


$BA59 


BA4C 


AS 


63 




LDA 


$63 


BA4E 


20 


59 


BA 


JSR 


$BA59 


BA51 


AS 


62 




LDA 


$62 


BA53 


20 


5E 


BA 


JSR 


$BA5E 


BA56 


4C 


8F 


BB 


JMP 


$BB8F 


************************** 


BA59 


DO 


03 




BNE 


$BA5E 


BA5B 


4C 


83 


B9 


JMP 


$B983 


BASE 


4A 






LSR 




BASF 


09 


80 




ORA 


#$80 


BA61 


A8 






TAY 




BA62 


90 


19 




BCC 


$BA7D 


BA64 


18 






CLC 




BA6S 


A5 


29 




LDA 


$29 


BA67 


65 


6D 




ADC 


$6D 


BA69 


85 


29 




STA 


$29 


BA6B 


AS 


28 




LDA 


$28 


BA6D 


65 


6C 




ADC 


$6C 


BA6F 


85 


28 




STA 


$28 


BA71 


AS 


27 




LDA 


$27 


BA73 


65 


6B 




ADC 


$6B 


BA75 


85 


27 




STA 


$27 


BA77 


AS 


26 




LDA 


$26 


BA79 


65 


6A 




ADC 


$6A 


BA7B 


85 


26 




STA 


$26 


BA7D 


66 


26 




ROR 


$26 


BA7F 


66 


27 




ROR 


$27 


BA8i 


66 


28 




ROR 


$28 


BA83 


66 


29 




ROR 


$29 


BA85 


66 


70 




ROR 


$70 


BA87 


98 






TYA 





get back exponent 
FAC=FAC+FAC 

pointer to constant LOG (2) 

* FAC = constant (A/Y) * FAC 
constant to ARB 

* FAC = ARB * FAC 
not zero? 

RTS 

calculate exponent 



clear -function register 



bitwise multipl 
bitwise multipl 
bitwise multipl 
bitwise multipl 



cation 
cation 
cation 
cation 



bitwise multiplication 
register to FAC, make left- 
binding 
Bitwise multiplication 

right— shifts the register 



A-61 



BA88 


4A 






LSR 






BA89 


DO 


D6 




BNE 


$BA61 




BA8B 


60 






RTS 








BA8C 


85 


22 




STA 


*22 




BABE 


84 


23 




STY 


*23 




BA90 


AO 


04 




LDY 


#*04 




BA92 


Bl 


22 




LDA 


(*22) , 


Y 


BA94 


85 


6D 




STA 


$6D 




BA96 


88 






DEY 






BA97 


Bl 


22 




LDA 


($22) , 


Y 


BA99 


85 


6C 




STA 


*6C 




BA9B 


88 






DEY 






BA9C 


Bl 


22 




LDA 


(*22) , 


Y 


BA9E 


85 


6B 




STA 


$6B 




BAAO 


88 






DEY 






BAAl 


Bl 


22 




LDA 


(*22) , 


Y 


BAA3 


85 


6E 




STA 


$6E 




BAAS 


45 


66 




EOR 


$66 




BAA7 


85 


6F 




STA 


$6F 




BAA9 


A5 


6E 




LDA 


$6E 




BAAB 


09 


80 




□RA 


#$80 




BAAD 


85 


6A 




STA 


$6A 




BAAF 


88 






DEY 






BABO 


Bl 


22 




LDA 


($22) , 


Y 


BAB2 


85 


69 




STA 


$69 




BAB4 


A5 


61 




LDA 


$61 




BAB6 


60 






RTS 






BAB7 


A5 


69 




LDA 


$69 




BAB9 


FO 


IF 




BEQ 


$BADA 




BABB 


18 






CLC 






BABC 


65 


61 




ADC 


$61 




BABE 


90 


04 




BCC 


$BAC4 




BACO 


30 


ID 




BMI 


$BADF 




BAC2 


18 






CLC 






BAC3 


2C 






-BYTE *2C 




BAC4 


10 


14 




BPL 


$BADA 




BAC6 


69 


80 




ADC 


#$80 




BAC8 


85 


61 




STA 


$61 




BACA 


DO 


0^ 




BNE 


$BACF 




BACC 


4C 


FB 


B8 


JMP 


$B8FB 




BACF 


A5 


6F 




LDA 


$6F 




BADl 


85 


66 




STA 


$66 




BAD3 


60 






RTS 






BAD4 


A5 


66 




LDA 


$66 




BAD6 


49 


FF 




EOR 


#$FF 




BAD8 


30 


05 




BMI 


$BADF 




BADA 


68 






PLA 






BADB 


68 






PLA 






BADC 


4C 


F7 


B8 


JMP 


$B8F7 




BADF 


4C 


7E 


B9 


JMP 


$B97E 





ARB = constant (A/Y) 



pointer 



constant to ARG 



sign 



exponent 



FAC=0 



FAC=0 

"OVERFLOW ERROR" 



***************************** 
BAE2 20 OC BC JSR $BCOC 



FAC = FAC * 10 
round FAC and put in ARG 



A-62 



BAE5 


AA 




TAX 






BAE6 


FO 


10 


BEQ 


*BAF8 


i-f FAC=0,then ready 


BAE8 


18 




CLC 






BAE9 


69 


02 


ADC 


#*02 


exponent +2 = exponent *4 


BAEB 


BO 


F2 


PCS 


*BADF 


balance? 


BAED 


A2 


00 


LDX 


#*00 




BAEF 


86 


6F 


STX 


*6F 




BAFl 


20 


77 B8 


JSR 


*B877 


FAC=FAC+ARG, = *5 


BAF4 


E6 


61 


INC 


$61 


increase exponent, = *2 


BAF6 


FO 


E7 


BEQ 


*BADF 


balance, then "OVERFLOW" 


BAF8 


60 




RTS 







BAF9 84 20 00 00 00 ^:loating point constant 10 



FAC = FAC / 10 



BAFE 


20 


OC 


BC 


JSR 


*BCOC 


round FAC and put in ARB 


BBOl 


A9 


F9 




LDA 


#*F9 


BB03 


AO 


BA 




LDY 


#$BA 


pointer to constant 10 


BB05 


A2 


00 




LDX 


#*00 


BB07 


86 


6F 




STX 


*6F 




BB09 


20 


A2 


BB 


JSR 


$BBA2 


constant 10 in FAC 


BBOC 


4C 


12 


BB 


JMP 


*BB12 


FAC = ARG / FAC 




FAC = constant (A/Y) / FAC 


BBOF 


20 


BC 


BA 


JSR 


*BA8C 


constant (A/Y) to ARG 




FAC = ARG / FAC 


BB12 


FO 


76 




BEQ 


«:BB8A 


FAC=0, "DIVISION BY ZERO" 


BB14 


20 


IB 


BC 


JSR 


*BC1B 


round FAC 


BB17 


A9 


00 




LDA 


#*00 




BB19 


38 






SEC 






BBIA 


E5 


61 




SBC 


4J61 




BBIC 


85 


61 




STA 


*61 




BBIE 


20 


B7 


BA 


JSR 


*BAB7 


determine exponent of result 


BB21 


E6 


61 




INC 


^61 




BB23 


FO 


BA 




BEQ 


*BADF 


exponent overflow 


BB25 


A2 


FC 




LDX 


#*FC 


pointer to function register 


BB27 


A9 


01 




LDA 


#^:01 




BB29 


A4 


6A 




LDY 


*6A 




BB2B 


C4 


62 




CPY 


*62 




BB2D 


DO 


10 




BNE 


*BB3F 




BB2F 


A4 


6B 




LDY 


*6B 




BB31 


C4 


63 




CPY 


*63 


compare ARG to FAC bitwise 


BB33 


DO 


OA 




BNE 


*BB3F 




BB35 


A4 


6C 




LDY 


*6C 




BB37 


C4 


64 




CPY 


*64 




BB39 


DO 


04 




BNE 


*BB3F 




BB3B 


A4 


6D 




LDY 


*6D 




BB3D 


C4 


65 




CPY 


*65 




BB3F 


08 






PHP 




save status 


BB40 


2A 






ROL 






BB41 


90 


09 




BCC 


*BB4C 




BB43 


E8 






INX 






BB44 


95 


29 




STA 


*29,X 




BB46 


FO 


32 




BEQ 


*BB7A 





A-63 



accumulator * 64 



BB48 


10 


34 




BPL 


$BB7E 


BB4A 


A9 


Ol 




LDA 


#*01 


BB4C 


28 






PLP 




BB4D 


BO 


OE 




BCS 


$BB5D 


BB4F 


06 


6D 




ASL 


:$6D 


BB51 


26 


6C 




ROL 


*6C 


BB53 


26 


6B 




ROL 


$6B 


BB55 


26 


6A 




ROL 


$6A 


BB57 


BO 


E6 




BCB 


*BB3F 


BB59 


30 


CE 




BMI 


*BB29 


BB5B 


10 


E2 




BPL 


*BB3F 


BB5D 


A8 






TAY 




BB5E 


A5 


6D 




LDA 


$6D 


BB60 


E5 


65 




SBC 


$65 


BB62 


85 


6D 




STA 


$6D 


BB64 


A5 


6C 




LDA 


*6C 


BB66 


E5 


64 




SBC 


*64 


BB68 


85 


6C 




STA 


$6C 


BB6A 


A5 


6B 




LDA 


*6B 


BB6C 


E5 


63 




SBC 


$63 


BB6E 


85 


6B 




STA 


$6B 


BB70 


A5 


6A 




LDA 


$6A 


BB72 


E5 


62 




SBC 


$62 


BB74 


85 


6A 




STA 


$6A 


BB76 


98 






TYA 




BB77 


4C 


4F 


BB 


JMP 


$BB4F 


BB7A 


A9 


40 




LDA 


#$40 


BB7C 


DO 


CE 




BNE 


$BB4C 


BB7E 


OA 






ASL 




BB7F 


OA 






ASL 




BB80 


OA 






ASL 




BB81 


OA 






ASL 




BB82 


OA 






ASL 




BB83 


OA 






ASL 




BB84 


85 


70 




STA 


$70 


BB86 


28 






PLP 




BB87 


4C 


8F 


BB 


JMP 


$BB8F 



BB8A A2 14 LDX #$14 
BB8C 4C 37 A4 JMP $A437 

***************************** 



BB8F 


A5 


26 


LDA 


$26 


BB91 


85 


62 


STA 


$62 


BB93 


A5 


27 


LDA 


$27 


BB95 


85 


63 


STA 


$63 


BB97 


A5 


28 


LDA 


$28 


BB99 


85 


64 


STA 


$64 


BB9B 


A5 


29 


LDA 


$29 


BB9D 


85 


65 


STA 


$65 


BB9F 


4C 


D7 


B8 JMP 


$B8D7 



help register to FAC 

# ^^or "DIVISION BY ZERO" 
out— put error message 

Trans-fer help register ($26- 
$29) to FAC 



make FAC left-binding 



***************************** Transfer constant <A/Y) to FAC 
BBA2 85 22 STA $22 



A-64 



BBA4 


84 


23 


STY 


*23 


set pointer 


BBA6 


AO 


04 


LDY 


#*04 




B6AG 


Bl 


22 


LDA 


(*22) ,Y 




BBAA 


85 


65 


STA 


$65 




BBAC 


88 




DEY 






BBAD 


Bl 


22 


LDA 


(*22) ,Y 




BBAF 


85 


64 


STA 


$64 




BBBl 


88 




DEY 




mantisse 


BBB2 


Bl 


22 


LDA 


($22) ,Y 




BBB4 


85 


63 


STA 


$63 




BBB6 


88 




DEY 






BBB7 


Bl 


22 


LDA 


($22) ,Y 




B6B9 


85 


66 


STA 


$66 




BBBB 


09 


80 


□RA 


#$80 


sign -for mantisse 


BBBD 


85 


62 


STA 


$62 




BBBF 


88 




DEY 






BBCO 


Bl 


22 


LDA 


($22) ,Y 




BBC2 


85 


61 


STA 


$61 


tav nonf^n't* 

C7/% LJ\JM Id 1 %- 


BBC4 


84 


70 


STY 


$70 




BBC6 


60 




RTS 








Tp- =jpkc:-f car" f-An to ;3r~r'IJfn _ 


BBC7 


A2 


5C 


LDk 


#$5C 


address low o*f accLifn« 


BBC9 


2C 




.BYTE #*2C 






Transfer FAC to accum. 


BBCA 


A2 


57 


LDX 


#$57 


a i~l iH v~ oc c= 1 r~i^ -a i— #— • i tn 


BBCC 


AO 


00 


LDY 


#$00 




BBCE 


FO 


04 


BEQ 


$BBD4 


<3ILJ aui, U ^cr J UIIII|J 




Tk" jarie:-f cai^ JPC^t^ \/jar""i suit 
1 r m i 3X err i m_f x^kj vcxi x laiu 


BBDO 


A6 


49 


LDX 


$49 




BBD2 


A4 


4A 


LDY 


$4A 


variable address 


BBD4 


20 


IB 


BC JSR 


$BC1B 


rouna rHUr 


BBD7 


86 


22 


STX 


$22 




BBD9 


84 


23 


STY 


$23 


pointer to target add 


BBDB 


AO 


04 


LDY 


#$04 


BBDD 


A5 


65 


LDA 


$65 




BBDF 


91 


22 


STA 


($22) ,Y 




BBEl 


88 




DEY 






BBE2 


A5 


64 


LDA 


$64 




BBE4 


91 


22 


STA 


($22) ,Y 




BBE6 


88 




DEY 






BBE7 


A5 


63 


LDA 


$63 




BBE9 


91 


22 


STA 


($22) ,Y 




BBEB 


88 




DEY 






BBEC 


A5 


66 


LDA 


$66 




BBEE 


09 


7F 


ORA 


#$7F 




BBFO 


25 


62 


AND 


$62 


get signs on memory -fi 


BBF2 


91 


22 


STA 


($22) ,Y 


BBF4 


88 




DEY 






BBF5 


A5 


61 


LDA 


$61 




BBF7 


91 


22 


STA 


($22) ,Y 




BBF9 


84 


70 


STY 


$70 




BBFB 


60 




RTS 







A-65 



*************^*******^**^**** Transfer ARB to FAC 



BBFC 


A5 


6E 


LDA 


*6E 


BBFE 


85 


66 


STA 


$66 


BCOO 


A2 


05 


LDX 


#*05 


BC02 


B5 


68 


LDA 


$68, X 


BC04 


95 


60 


STA 


*60,X 


BC06 


CA 




DEX 




BC07 


DO 


F9 


BNE 


*BC02 


BC09 


86 


70 


STX 


*70 


BCOB 


60 




RTS 





*********it************-iit*i(r**-*^ii^ Trans-fer FAC to ARG 

round FAC 



BCOC 


20 


IB 


BC JSR 


*BC1B 


BCOF 


A2 


06 


LDX 


#$06 


BCll 


B5 


60 


LDA 


$60,X 


BC13 


95 


68 


STA 


$68, X 


BC15 


CA 




DEX 




BC16 


DO 


F9 


BNE 


$BC11 


BC18 


86 


70 


STX 


$70 


BCIA 


60 




RTS 





BCIB 


A5 


61 




LDA 


$61 


BCID 


FO 


FB 




BEQ 


$BC1A 


BCIF 


06 


70 




ASL 


$70 


Br21 


90 


F7 




BCC 


$BC1A 


BC23 


20 


6F 


B9 


JSR 


$B96F 


BC26 


DO 


F2 




BNE 


$BC1A 


BC28 


4C 


38 


B9 


JMP 


$B938 



Round FAC 
exponent zero, then ready 

rounding place bigger $7F7 
no, then ready 
increase mantisse by one 
now zero? 

shi-ft right; increase 
exponent 
Get sign o-f FAC 



BC2B 


A5 


61 


LDA 


$61 


zero? 


BC2D 


FO 


09 


BEQ 


$BC38 




BC2F 


A5 


66 


LDA 


$66 




BC31 


2A 




ROL 






BC32 


A9 


FF 


LDA 


#$FF 


negative? 


BC34 


BO 


02 


BCS 


$BC38 




BC36 


A9 


01 


LDA 


#$01 


posi ti ve? 


BC38 


60 




RTS 







***************************** BASIC-SGN -function 



BC39 


20 


2B BC 


JSR 


$BC2B 


BC3C 


85 


62 


STA 


$62 


BC3E 


A9 


00 


LDA 


#$00 


BC40 


85 


63 


STA 


$63 


BC42 


A2 


88 


LDX 


#$88 


BC44 


A5 


62 


LDA 


$62 


BC46 


49 


FF 


EOR 


#$FF 


BC48 


2A 




ROL 




BC49 


A9 


00 


LDA 


#$00 


BC4B 


85 


65 


STA 


$65 


BC4D 


85 


64 


STA 


$64 


BC4F 


86 


61 


STX 


$61 



A-66 



BC51 


85 


70 




STA 


*70 




BC53 


85 


66 




STA 


$66 




BC55 


4C 


D2 


B8 


JMP 


$B8D2 








BC58 


46 


66 




LSR 


$66 


clear sign bit. 


BC5A 


60 






RTS 






Compare 001151131111 (A/ Y) mi tin 


BC5B 


85 


24 




STA 


$24 




BC5D 


84 


25 




STY 


$25 


poi nter* iio cons'tan't 


BC5F 


AO 


OO 




LDY 


#$oo 




BC61 


Bl 


24 




LDA 


($24) ,Y 




BC63 


C8 






I NY 






BC64 


AA 






TAX 






BC65 


FO 


C4 




BEQ 


$BC2B 


j£ err LJ f ullcrll Ijcrt. sIlJII ui ~ril-r 


BC67 


Bl 


24 




LDA 


($24) ,Y 




BC69 


45 


66 




EOR 


$66 




BC6B 


30 


C2 




BMI 


$BC2F 


U A T T tri en alalia 


BC6D 


E4 


61 




CPX 


$61 




BC6F 


DO 


21 




BNE 


$BC92 




BC71 


Bl 


24 




LDA 


($24) ,Y 


dtJinpar e x ■ uyue 


BC73 


09 


80 




ORA 


#$80 




BC75 


C5 


62 




CMP 


$62 




BC77 


DO 


19 




BNE 


$BC92 




BC79 


C8 






I NY 






BC7A 


Bl 


24 




LDA 


($24) ,Y 




BC7C 


C5 


63 




CMP 


$63 




BC7E 


DO 


12 




BNE 


$BC92 




BC80 


C8 






I NY 






BC8i 


Bl 


24 




LDA 


($24) ,Y 


compare 3. byiie 


BC83 


C5 


64 




CMP 


$64 




BC85 


DO 


OB 




BNE 


$BC92 




BC87 


C8 






I NY 






BC88 


A9 


7F 




LDA 


#$7F 




BC8A 


C5 


70 




CMP 


$70 




BC8C 


Bl 


24 




LDA 


($24) ,Y 


compare 4- byte 


BC8E 


E5 


65 




SBC 


$65 




BC90 


FO 


28 




BEQ 


$BCBA 




BC92 


A5 


66 




LDA 


$66 




BC94 


90 


02 




BCC 


$BC98 




BC96 


49 


FF 




EOR 


#$FF 


resuxi. sina J. X er f T-nen xnveru 


BC98 


4C 


31 


BC 


JMP 


$BC31 


set -flag -for result 


***************************** 


Change -floating— point to 


BC9B 


A5 


61 




LDA 


$61 


exponent integer 


BC9D 


FO 


4A 




BEQ 


$BCE9 


zero? 


BC9F 


38 






SEC 






BCAO 


E9 


AO 




SBC 


#$A0 




BCA2 


24 


66 




BIT 


$66 




BCA4 


10 


09 




BPL 


$BCAF 




BCA6 


AA 






TAX 






BCA7 


A9 


FF 




LDA 


#$FF 




BCA9 


85 


68 




STA 


$68 




BCAB 


20 


4D 


B9 


JSR 


$B94D 


invert mantisse o-f FAC 


BCAE 


8A 






TXA 







A-67 



BCAF A2 61 LDX #*61 

BCBl C9 F9 CMP #*F9 

BCB3 10 06 BPL *BCBB 

BCB5 20 99 B9 JSR *B999 shi-ft FAC right 

BCB8 84 68 STY *68 

BCBA 60 RTS 

BCBB AS TAY 

BCBC A5 66 LDA *66 

BCBE 29 80 AND #*80 

BCCO 46 62 LSR $62 

BCC2 05 62 ORA *62 

BCC4 85 62 STA *62 

BCC6 20 BO B9 JSR *B9B0 shi-ft FAC right bitwise 

BCC9 84 68 STY *68 

BCCB 60 RTS 



***************************** BASIC- I NT -function 



BCCC 


A5 


61 




LDA 


$61 


exponent 


BCCE 


C9 


AO 




CMP 


#$A0 


Mhole number? 


BCDO 


BO 


20 




BCS 


$BCF2 


yes, then ready 


BCD2 


20 


9B 


BC 


JSR 


$BC9B 


change FAC to integer 


BCD5 


84 


70 




STY 


$70 




BCD7 


A5 


66 




LDA 


$66 




BCD9 


84 


66 




STY 


$66 




BCDB 


49 


80 




EOR 


#$80 




BCDD 


2A 






RQL 






BCDE 


A9 


AO 




LDA 


#$A0 




BCEO 


85 


61 




STA 


$61 




BCE2 


A5 


65 




LDA 


$65 




BCE4 


85 


07 




STA 


$07 




BCE6 


4C 


D2 


B8 


JMP 


$B8D2 


make FAC le-f t-binding 


BCE9 


85 


62 




STA 


$62 


fill mantise with zeros 


BCEB 


85 


63 




STA 


$63 




BCED 


85 


64 




STA 


$64 




BCEF 


85 


65 




STA 


$65 




BCFl 


A8 






TAY 






BCF2 


60 






RTS 






***************************** 


Change ASCII to Floating 


BCF3 


AO 


00 




LDY 


#$00 


point format 


BCF5 


A2 


OA 




LDX 


#$0A 


clear range $5D to $66 


BCF7 


94 


5D 




STY 


$5D,X 




BCF9 


CA 






DEX 






BCFA 


10 


FB 




BPL 


$BCF7 




BCFC 


90 


OF 




BCC 


$BDOD 




BCFE 


C9 


2D 




CMP 


#$2D 


»f _ II 


BDOO 


DO 


04 




BNE 


$BD06 




BD02 


86 


67 




STX 


$67 


flag for negative 


BD04 


FO 


04 




BEQ 


$BDOA 




BD06 


C9 


2B 




CMP 


#$2B 




BD08 


DO 


05 




BNE 


$BDOF 




BDOA 


20 


73 


OO 


JSR 


$0073 


CHRGET get next character 


BDOD 


90 


5B 




BCC 


$BD6A 




BDOF 


C9 


2E 




CMP 


#$2E 


II II 


BDll 


FO 


2E 




BEQ 


$BD41 





A-68 



BD13 


C9 


45 




CMP 


#$45 


BD15 


DO 


30 




BNE 


*BD47 


BD17 


20 


73 


OO 


JSR 


$0073 


BDIA 


90 


17 




BCC 


$BD33 


BDIC 


C9 


AB 




CMP 


#$AB 


BDIE 


FO 


OE 




BEQ 


$BD2E 


BD20 


C9 


2D 




CMP 


#*2D 


BD22 


FO 


OA 




BEQ 


$BD2E 


BD24 


C9 


AA 




CMP 


#$AA 


BD26 


FO 


08 




BEQ 


$BD30 


BD28 


C9 


2B 




CMP 


#$2B 


BD2A 


FO 


04 




BEQ 


$BD30 


BD2C 


DO 


07 




BNE 


$BD35 


BD2E 


66 


60 




ROR 


$60 


BD30 


20 


73 


00 


JSR 


$0073 


BD33 


90 


5C 




BCC 


$BD91 


BD35 


24 


60 




BIT 


$60 


BD37 


10 


OE 




BPL 


$BD47 


BD39 


A9 


00 




LDA 


#$00 


BD3B 


38 






SEC 




BD3C 


E5 


5E 




SBC 


$5E 


BD3E 


4C 


49 


BD 


JMP 


$BD49 


BD41 


66 


5F 




ROR 


$5F 


BD43 


24 


5F 




BIT 


$5F 


BD45 


50 


C3 




BVC 


$BDOA 


BD47 


A5 


5E 




LDA 


$5E 


BD49 


38 






SEC 




BD4A 


E5 


5D 




SBC 


$5D 


BD4C 


85 


5E 




STA 


$5E 


BD4E 


FO 


12 




BEQ 


$BD62 


BD50 


10 


09 




BPL 


$BD5B 


BD52 


20 


FE 


BA 


JSR 


$BAFE 


BD55 


E6 


5E 




INC 


$5E 


BD57 


DO 


F9 




BNE 


$BD52 


BD59 


FO 


07 




BEQ 


$BD62 


BD5B 


20 


E2 


BA 






BD5E 


C6 


5E 




DEC 


$5E 


BD60 


DO 


F9 




BNE 


$BD5B 


BD62 


A5 


67 




LDA 


$67 


BD64 


30 


01 




BMI 


$BD67 


BD66 


60 






RTS 




BD67 


4C 


B4 


BF 


JMP 


$BFB4 


BD6A 


48 






PHA 




BD6B 


24 


5F 




BIT 


$5F 


BD6D 


10 


02 




BPL 


$BD71 


BD6F 


E6 


5D 




INC 


$5D 


BD71 


20 


E2 


BA 


JSR 


$BAE2 


BD74 


68 






PLA 




BD75 


38 






SEC 




BD76 


E9 


30 




SBC 


#$30 


BD78 


20 


7E 


BD 


JSR 


$BD7E 


BD7B 


4C 


OA 


BD 


JMP 


$BDOA 


BD7E 


48 






PHA 




BD7F 


20 


OC 


BC 


JSR 


$BCOC 


BD82 


68 






PLA 





II ^11 

CHRGET get next character 
BASIC code 

II II 

"+" BASIC code 
II ^. II 

set bit 7 

CHRGET get next character 

bit 7 set? 
no 

call by decimal point 



FAC = FAC / lO 
FAC = FAC * 10 



change o-f sign FAC = -FAC 

FAC = FAC * 10 

ASCII - $30 Hex 

add next digit to FAC 

next character 

FAC to ARG 



A-69 



BD83 


20 


3C 


BC 


JSR 


*BC3C 


BD86 


A5 


6E 




LDA 


$6E 


BD88 


45 


66 




EOR 


$66 


BD8A 


85 


6F 




STA 


*6F 


BD8C 


A6 


61 




LDX 


$61 


BD8E 


4C 


6A 


B8 


JMP 


$B86A 


BD91 


A5 


5E 




LDA 


$5E 


BD93 


C9 


OA 




CMP 


#$0A 


BD95 


90 


09 




BCC 


*BDAO 


BD97 


A9 


64 




LDA 


#$64 


BD99 


24 


60 




BIT 


$60 


BD9B 


30 


11 




BMI 


$BDAE 


BD9D 


4C 


7E 


B9 


JMP 


$B97E 


BDAO 


OA 






ASL 




BDAl 


OA 






ASL 




BDA2 


18 






CLC 




BDA3 


65 


5E 




ADC 


$5E 


BDA5 


OA 






ASL 




BDA6 


18 






CLC 




BDA7 


AO 


00 




LDY 


#$00 


BDA9 


71 


7A 




ADC 


($7A) ,Y 


BDAB 


38 






SEC 




BDAC 


E9 


30 




SBC 


#$30 


BDAE 


85 


5E 




STA 


$5E 


BDBO 


4C 


30 


BD 


JMP 


$BD30 


************************** 


BDB3 


9B 


3E 


BC 


IF 


FD 


BDB8 


9E 


6E 


6B 


27 


FD 


BDBD 


9E 


6E 


6B 


28 


00 



***************************** 
BDC2 A9 71 LDA #$71 
BDC4 AO A3 LDY #$A3 
BDC6 20 DA BD JSR $BDDA 
BDC9 A5 3A LDA $3A 
BDCB A6 39 LDX $39 

^|.**^(.^(.^(.^(.^(.^^******************** 



BDCD 


85 


62 




STA 


$62 


BDCF 


86 


63 




STX 


$63 


BDDl 


A2 


90 




LDX 


#$90 


BDD3 


38 






SEC 




BDD4 


20 


49 


BC 


JSR 


$BC49 


BDD7 


20 


DF 


BD 


JSR 


$BDDF 


BDDA 


4C 


IE 


AB 


JMP 


$AB1E 



***************************** 



BDDD 


AO 


01 


LDY 


#$01 


BDDF 


A9 


20 


LDA 


#$20 


BDEl 


24 


66 


BIT 


$66 


BDE3 


10 


02 


BPL 


$BDE7 


BDE5 


A9 


2D 


LDA 


#$2D 


BDE7 


99 


FF 


00 STA 


$OOFF,Y 


BDEA 


85 


66 


STA 


$66 


BDEC 


84 


71 


STY 


$71 



FAC = FAC + ARB 
call by "E" 



'OVERFLOW ERROR" 



get next character 

Constants for -floating point 
99999999-9 
999999999 
1E9 

Out-put line # at error mesg 

pointer to "IN" 
output string 

get current line number 

Out-put positive integer # 
in A/X 

write -for change in FAC 



change integer to -floating 
change FAC to ASCII point 
out -put string 

Change FAC to ASCII and put 
in $100 
" " space for positive # 
sign 

positive? 

"-" minus -for negative # 
write in bu-f-fer range 



A-70 



BDEE 


C8 






I NY 




BDEF 


A9 


30 




LDA 


#*30 


BDFl 


A6 


61 




LDX 


$61 


BDF3 


DO 


03 




BNE 


$BDF8 


BDF5 


4C 


04 


BF 


JMP 


*BF04 


BDF8 


A9 


00 




LDA 


#$00 


BDFA 


EO 


80 




CPX 


#$80 


BDFC 


FO 


02 




BEQ 


$BEOO 


BDFE 


BO 


09 




BCS 


$BE09 


BEOO 


A9 


BD 




LDA 


#$BD 


BE02 


AO 


BD 




LDY 


#$BD 


BE04 


20 


28 


BA 


JSR 


$BA28 


BE07 


A9 


F7 




LDA 


#$F7 


BE09 


85 


5D 




STA 


$5D 


BEOB 


A9 


B8 




LDA 


#$B8 


BEOD 


AO 


BD 




LDY 


#$BD 


BEOF 


20 


5B 


BC 


JSR 


$BC5B 


BE12 


FO 


IE 




BEQ 


$BE32 


BE14 


10 


12 




BPL 


$BE28 


BE16 


A9 


B3 




LDA 


#$B3 


BE18 


AO 


BD 




LDY 


#$BD 


BEIA 


20 


5B 


BC 


JSR 


$BC5B 


BEID 


FO 


02 




BEQ 


$BE21 


BEIF 


10 


OE 




BPL 


$BE2F 


BE21 


20 


E2 


BA 


JSR 


$BAE2 


BE24 


C6 


5D 




DEC 


$5D 


BE26 


DO 


EE 




BNE 


$BE16 


BE28 


20 


FE 


BA 


JSR 


$BAFE 


BE2B 


E6 


5D 




INC 


$5D 


BE2D 


DO 


DC 




BNE 


$BEOB 


BE2F 


20 


49 


B8 


JSR 


$B849 


BE32 


20 


9B 


BC 


JSR 


$BC9B 


BE35 


A2 


01 




LDX 


#$01 


BE37 


A5 


5D 




LDA 


$5D 


BE39 


18 






CLC 




BE3A 


69 


OA 




ADC 


#$0A 


BE3C 


30 


09 




BMI 


$BE47 


BE3E 


C9 


OB 




CMP 


#$0B 






Uo 




BCS 


$BE48 




oV 


rr 




ADC 


#$FF 


BE44 


AA 






TAX 




BE45 


A9 


02 




LDA 


#$02 


BE47 


38 






SEC 




BE48 


E9 


02 




SBC 


#$02 


BE4A 


85 


5E 




STA 


$5E 


BE4C 


86 


5D 




STX 


$5D 


BE4E 


8A 






TXA 




BE4F 


FO 


02 




BEQ 


$BE53 


BE51 


10 


13 




BPL 


$BE66 


BE53 


A4 


71 




LDY 


$71 


BE55 


A9 


2E 




LDA 


#$2E 


BE57 


C8 






I NY 




BE58 


99 


FF 


00 


STA 


$OOFF 


BE5B 


8A 






TXA 





HQ II 

exponent 

number not zero? 
yes , ready 

compare FAC with 1 

FAC bigger than 1 

pointer to constant 1E9 
constant (pointer A/Y) *FAC 



pntr to constant 999999999 
compare constant (pointer 
equal A/Y with FAC 

pntr to constant 99999999.9 
compare constant (pointer 

A/Y with FAC 



FAC = FAC * 10 



FAC = FAC / 10 



FAC = FAC + .5, round 
FAC to integer 



amount smaller 0.1? 
amount greater 1E9? 



A-71 



BE5C 


FO 


06 




BEQ 


$BE64 




BE5E 


A9 


30 




LDA 


#$30 




BE60 


C8 






I NY 






BE61 


99 


FF 


00 


STA 


*OOFF, 


Y 


BE64 


84 


71 




STY 


*71 




BE66 


AO 


00 




LDY 


#$00 




BE68 


A2 


80 




LDX 


#$80 




BE6A 


A5 


65 




LDA 


$65 




BE6C 


18 






CLC 






BE6D 


79 


19 


BF 


ADC 


$BF19, 


Y 


BE70 


85 


65 




STA 


$65 




BE72 


A5 


64 




LDA 


$64 




BE74 


79 


18 


BF 


ADC 


$BF18, 


Y 


BE77 


85 


64 




STA 


$64 




BE79 


A5 


63 




LDA 


$63 




BE7B 


79 


17 


BF 


ADC 


$BF17, 


Y 


BE7E 


85 


63 




STA 


$63 




BE80 


A5 


62 




LDA 


$62 




BE82 


79 


16 


BF 


ADC 


$BF16, 


Y 


BE85 


85 


62 




STA 


$62 




BE87 


E8 






I NX 






BE88 


BO 


04 




BCS 


$BE8E 




BE8A 


10 


DE 




BPL 


$BE6A 




BE8C 


30 


02 




BMI 


$BE90 




BE8E 


30 


DA 




BMI 


$BE6A 




BE90 


8A 






TXA 






BE91 


90 


04 




BCC 


$BE97 




BE93 


49 


FF 




EOR 


#$FF 




BE95 


69 


OA 




ADC 


#$0A 




BE97 


69 


2F 




ADC 


#$2F 




BE99 


C8 






I NY 






BE9A 


C8 






I NY 






BE9B 


C8 






I NY 






BE9C 


C8 






I NY 






BE9D 


84 


47 




STY 


$47 




BE9F 


A4 


71 




LDY 


$71 




BEAl 


C8 






I NY 






BEA2 


AA 






TAX 






BEA3 


29 


7F 




AND 


#$7F 




BEA5 


99 


FF 


00 


STA 


$OOFF, 


Y 


BEA8 


C6 


5D 




DEC 


$5D 




BEAA 


DO 


06 




BNE 


$BEB2 




BEAC 


A9 


2E 




LDA 


#$2E 




BEAE 


C8 






I NY 






BEAF 


99 


FF 


00 


STA 


$OOFF f 


Y 






/ 1 




t» 1 Y 






BEB4 


A4 


47 




LDY 


$47 




BEB6 








1 aR 






BEB7 


49 


FF 




EOR 


#$FF 




BEB9 


29 


80 




AND 


#$80 




BEBB 


AA 






TAX 






BEBC 


CO 


24 




CRY 


#$24 




BEBE 


FO 


04 




BEQ 


$BEC4 




BECO 


CO 


3C 




CRY 


#$3C 




BEC2 


DO 


A6 




BNE 


$BE6A 





calculation of the seperate 
digits 



II II 



tab legend at FAC-change 
table-end at TI$ calculation 



A-72 



BEC4 


A4 


71 




LDY 


*71 




BEC6 


B9 


FF 


00 


LDA 


*OOFF , 


Y 


BEC9 


88 






DEY 






BECA 


C9 


30 




CMP 


#$30 




BECC 


FO 


F8 




BEQ 


$BEC6 




BECE 


C9 


2E 




CMP 


#$2E 




BEDO 


FO 


01 




BEQ 


$BED3 




BED2 


C8 






I NY 






BE1D3 


A9 


2B 




LDA 


#$2B 




BEDS 


A6 


5E 




LDX 


*5E 




BED7 


FO 


2E 




BEQ 


*BF07 




BED9 


10 


08 




BPL 


$BEE3 




BEDB 


A9 


00 




LDA 


#$00 




BEDD 


38 






SEC 






BEDE 


E5 


5E 




SBC 


$5E 




BEEO 


AA 






TAX 






BEEl 


A9 


2D 




LDA 


#$2D 




BEE3 


99 


01 


01 


STA 


$0101 , 


Y 


BEE6 


A9 


45 




LDA 


#$45 




BEEB 


99 


00 


01 


STA 


$0100, 


Y 


BEEB 


8A 






TXA 






BEEC 


A2 


2F 




LDX 


#$2F 




BEEE 


38 






SEC 






BEEF 


E8 






INX 






BEFO 


E9 


OA 




SBC 


#$OA 




BEF2 


BO 


FB 




BCS 


$BEEF 




BEF4 


69 


3A 




ADC 


#$3A 




BEF6 


99 


03 


01 


STA 


$0103, 


Y 


BEF9 


8A 






TXA 






BEFA 


99 


02 


01 


STA 


$0102, 


Y 


BEFD 


A9 


00 




LDA 


#$00 




BEFF 


99 


04 


01 


STA 


$0104, 


Y 


BF02 


FO 


08 




BEQ 


$BFOC 




BF04 


99 


FF 


00 


STA 


$OOFF , 


Y 


BF07 


A9 


00 




LDA 


#$00 




BF09 


99 


00 


01 


STA 


$0100, 


Y 


BFOC 


A9 


00 




LDA 


#$00 




BFOE 


AO 


01 




LDY 


#$oi 




BFIO 


60 






RTS 







BFll 80 00 00 00 00 

BF16 FA OA IF OO 

BFIA 00 98 96 80 

BFIE FF FO BD CO 

BF22 OO 01 86 AO 

BF26 FF FF D8 FO 

BF2A 00 00 03 E8 

BF2E FF FF FF 9C 

BF32 00 00 00 OA 

BF36 FF FF FF FF 



■I II 



II ^11 



ll_H 

II ^11 



end buffer with $00 



end buffer with $00 



pointer to buffer $100 



constant 0.5 for SQR 

Constants for Floating-point 
32 bit #s with signs 
100 OOO 000 
10 000 000 
1 000 000 
100 000 
10 000 
1 000 
100 
10 

1 



A-73 



***************************** 

BF3A FF DF OA SO 

BF3E 00 03 4B CO 

BF42 FF FF 73 60 

BF46 OO 00 OE 10 

BF4A FF FF FD AS 

BF4E 00 00 00 3C 

BF52 EC 



BF53 


AA 










BF70 




AA 






BF71 


20 


OC 


BC 


JSR 


$BCOC 


BF74 


A9 


11 




LDA 


*$11 


BF76 


AO 


BF 




LDY 


#*BF 


BF78 


20 


A2 


BB 


JSR 


$BBA2 


BF7B 


FO 


70 




BEQ 


*BFED 


BF7D 


A5 


69 




LDA 


*69 


BF7F 


DO 


03 




BNE 


*BF84 


BF81 


4C 


F9 


B8 


JMP 


*B8F9 


BFB4 


A2 


4E 




LDX 


#$4E 


BF86 


AO 


00 




LDY 


#*00 


BF88 


20 


D4 


BB 


JSR 


$BBD4 


BF8B 


A5 


6E 




LDA 


$6E 


BF8D 


lO 


OF 




BPL 


*BF9E 


BF8F 


20 


CC 


BC 


JSR 


$BCCC 


BF92 


A9 


4E 




LDA 


#*4E 


BF94 


AO 


00 




LDY 


#*oo 


BF96 


20 


5B 


BC 


JSR 


$BC5B 


BF99 


DO 


03 




BNE 


*BF9E 


BF9B 


98 






TYA 




BF9C 


A4 


07 




LDY 




BF9E 


20 


FE 


BB 


JSR 


*BBFE 


BFAl 


98 






TYA 




BFA2 


48 






PHA 




BFA3 


20 


EA 


B9 


JSR 


$B9EA 


BFA6 


A9 


4E 




LDA 


#$4E 


BFA8 


AO 


00 




LDY 


#*00 


BFAA 


20 


28 


BA 


JSR 


$BA28 


BFAD 


20 


ED 


BF 


JSR 


*BFED 


BFBO 


68 






PLA 




BFBl 


4A 






LSR 




BFB2 


90 


OA 




BCC 


*BFBE 


BFB4 


A5 


61 




LDA 


$61 


BFB6 


FO 


06 




BEQ 


*BFBE 


BFB8 


AS 


66 




LDA 


$66 


BFBA 


49 


FF 




EOR 


#*FF 


BFBC 


85 


66 




STA 


$66 


BFBE 


60 






RTS 





Constants -for change -from TI 
2 160 000 to TI* 

216 000 
36 000 
3 600 
600 
60 



exponent ARB = basis? 

not zero? 

ready 

pointer to helping accum. 
FAC to helping accumulator 
exponent FAC= power exponent 
smaller one? 
INT function 

pointer to helping accum. 
compare with FAC 



ARG to FAC 



LOG function 

pointer to helping accum. 
multiply with FAC 
EXP function 



exponent 



invert 



BASIC-SQR function 
round FAC and put in ARG 

pointer to constant 0-5 

FAC=ARG constant (A/Y) 
constant to FAC 

FAC=ARG ^ FAC 



A-74 



*^«*««^*»««««««-)f-*«««-)(-4(-«-K"N-«««-x- Constants -for EXP 



BFBF 


81 


38 


AA 


3B 


29 


1-44269504 = 1/L0G(2) 


BFC4 


07 










7 = polynome degree 


BFC5 


71 


34 


58 


3E 


56 


2. 14987637E-5 


BFCA 


74 


16 


7E 


B3 


IB 


1-4352314E-4 


BFCF 


77 


2F 


EE 


E3 


85 


1 - 34226348E-3 


BFD4 


7A 


ID 


84 


IC 


2A 


9-614011701E-3 


BFD9 


7C 


63 


59 


58 


9A 


-055051269 


BFDE 


7E 


75 


FD 


E7 


C6 


- 240226385 


BFE3 


80 


31 


72 


18 


10 


-693147186 


BFES 


81 


00 


OO 


OO 


OO 


1 



BFED 


A9 


BF 




LDA 


#*BF 


BFEF 


AO 


BF 




LDY 


#*BF 


BFFl 


20 


28 


BA 


JSR 


:^BA28 


BFF4 


A5 


70 




LDA 


*70 


BFF6 


69 


50 




ADC 


#$50 


BFF8 


90 


03 




BCC 


*BFFD 


BFFA 


20 


23 


BC 


JSR 


$;BC23 


BFFD 


4C 


OO 


EO 


JMP 


*E000 


EOOO 


85 


56 




BTA 


$56 


E002 


20 


OF 


BC 


JSR 


*BCOF 


E005 


A5 


61 




LDA 


$61 


E007 


C9 


88 




CMP 


#$88 


E009 


90 


03 




BCC 


$EOOE 


EOOB 


20 


D4 


BA 


JSR 


$BAD4 


EOOE 


20 


CC 


BC 


JSR 


$BCCC 


EOll 


A5 


07 




LDA 


$07 


E013 


18 






CLC 




E014 


69 


81 




ADC 


#$81 


E016 


FO 


F3 




BEQ 


$EOOB 


E018 


38 






SEC 




E019 


E9 


01 




SBC 


#$01 


EOIB 


48 






PHA 




EOlC 


A2 


05 




LDX 


#$05 


EOIE 


B5 


69 




LDA 


$69, X 


E020 


B4 


61 




LDY 


$61, X 


E022 


95 


61 




STA 


$61, X 


E024 


94 


69 




STY 


$69, X 


E026 


CA 






DEX 




E027 


10 


F5 




BPL 


$E01E 


E029 


A5 


56 




LDA 


$56 


E02B 


85 


70 




STA 


$70 


E02D 


20 


53 


B8 


JSR 


$B853 


E030 


20 


B4 


BF 


JSR 


$BFB4 


E033 


A9 


C4 




LDA 


#$C4 


E035 


AO 


BF 




LDY 


#$BF 


E037 


20 


59 


EO 


JSR 


$E059 


E03A 


A9 


OO 




LDA 


#$00 


E03C 


85 


6F 




STA 


$6F 


E03E 


68 






PLA 




E03F 


20 


B9 


BA 


JSR 


$BAB9 


E042 


60 






RTS 





BASIC-EXP function 

pointer to constant 1/L0B(2) 
multiply with FAC 



increase mantissa of FAC by 

one 

get FAC to ARG 
exponent 

number larger than 128? 

in positive, "OVERFLOW" 
INT function 



eaual to 127? 



switch FAC and ARB 



ARG-FAC 
change of sign 

pointer to polynome coef . 
calculate polynome 



+ exponents of FAC and ARG 



A-75 



E043 


85 


71 




STA 


*71 


E045 


84 


72 




STY 


*72 


E047 


20 


CA 


BB 


JSR 


$BBCA 


E04A 


A9 


57 




LDA 


#*57 


tV/*TL» 








usrc 




E04F 


20 


5D 


EO 


JSR 


*E05D 


E052 


A9 


57 




LDA 


#*57 


E054 


AO 


OO 




LDY 


»*oo 


E056 


4C 


28 


BA 


JMP 


$BA28 




E059 


85 


71 




STA 


*71 


E05B 


84 


72 




STY 


*72 


E05D 


20 


C7 


BB 


JSR 


$BBC7 


E060 


Bl 


71 




LDA 


(*71) ,Y 


E062 


85 


67 




STA 


*67 


E064 


A4 


71 




LDY 


*71 


E066 


C8 






I NY 




E067 


98 






TYA 




E068 


DO 


02 




BNE 


*E06C 


E06A 


E6 


72 




INC 


$72 


E06C 


85 


71 




STA 


*71 


E06E 


A4 


72 




LDY 


*72 


E070 


20 


28 


BA 


JSR 


$BA28 


E073 


A5 


71 




LDA 


*71 


E075 


A4 


72 




LDY 


*72 


E077 


18 






CLC 




E078 


69 


05 




ADC 


#*05 


E07A 


90 


01 




BCC 


*E07D 


E07C 


C8 






I NY 




E07D 


85 


71 




STA 


*71 


E07F 


84 


72 




STY 


*72 


E081 


20 


67 


B8 


JSR 


*B867 


E084 


A9 


5C 




LDA 


#*5C 


E086 


AO 


00 




LDY 


#*00 


E088 


C6 


67 




DEC 


*67 


E08A 


DO 


E4 




BNE 


*E070 


E08C 


60 






RTS 





E08D 98 35 44 7A 00 
E092 68 28 Bl 46 00 

***************************** 



E097 


20 


2B 


BC 


JSR 


$BC2B 


E09A 


30 


37 




BMI 


*E0D3 


E09C 


DO 


20 




BNE 


*EOBE 


E09E 


20 


F3 


FF 


JSR 


*FFF3 


EOAl 


86 


22 




STX 


*22 


E0A3 


84 


23 




STY 


$23 


E0A5 


AO 


04 




LDY 


#*04 


E0A7 


Bl 


22 




LDA 


($22) ,Y 


E0A9 


85 


62 




STA 


*62 



Polynome calculations y=al*x 
+a 1 *x -^3+a3*x "^5 
pointer to polynome degree 
bring FAC ot accum. #3 
pointer to accum. #3 
FAC * accum. #3 (square) 
polynome calculation 

pointer to accum. #3 
FAC = FAC * accum. #3 

Polynome calc. y=a0+al*x+a2* 
x^2+a3*K'^3 
pointer to polynome degree 
bring FAC to accum #4 
polynome degree 
as counter 



increase pointer, shows 
then on -first coe-fficient 



FAC = FAC * constant (A/Y) 



add 5 to pointer, next # 



FAC = FAC + constant (A/Y) 

pointer to accum. #4 
decrease counter 



Constant ^ur RND 
11879546 
3.92767774E-4 

BASIC-RND -function 
get sign 
negative? 

get basic address CIA 
save as pointer 
timer 1 low 



A-76 



EOAB 


C8 






INY 






EOAC 


Bl 


22 




LDA 


(*22) 


,Y 


EOAE 


85 


64 




STA 


$64 




EOBO 


AO 


08 




LDY 


#$08 




E0B2 


Bl 


22 




LDA 


($22) 


,Y 


E0B4 


85 


63 




STA 


$63 




E0B6 


C8 






INY 






E0B7 


Bl 


22 




LDA 


($22) 




E0B9 


85 


65 




STA 


$65 




EOBB 


4C 


E3 


EO 


JMP 


$E0E3 




EOBE 


A9 


8B 




LDA 


#$8B 




EOCO 


AO 


00 




LDY 


#$oo 




E0C2 


20 


A2 


BB 


JSR 


$BBA2 




E0C5 


A9 


8D 




LDA 


#$8D 




E0C7 


AO 


EO 




LDY 


#$E0 




E0C9 


20 


28 


BA 


JSR 


$BA28 




EOCC 


A9 


92 




LDA 


#$92 




EOCE 


AO 


EO 




LDY 


#$E0 




EODO 


20 


67 


B8 


JSR 


$B867 




E0D3 


A6 


65 




LDX 


$65 




E0D5 


A5 


62 




LDA 


$62 




E0D7 


85 


65 




STA 


$65 




E0D9 


86 


62 




STX 


$62 




EODB 


A6 


63 




LDX 


$63 




EODD 


A5 


64 




LDA 


$64 




EODF 


85 


63 




STA 


$63 




EOEl 


86 


64 




STX 


$64 




E0E3 


A9 


00 




LDA 


#$00 




E0E5 


85 


66 




STA 


$66 




E0E7 


A5 


61 




LDA 


$61 




E0E9 


85 


70 




STA 


$70 




EOEB 


A9 


80 




LDA 


#$80 




EOED 


85 


61 




STA 


$61 




EOEF 


20 


D7 


B8 


JSR 


$B8D7 




E0F2 


A2 


8B 




LDX 


#$8B 




E0F4 


AO 


00 




LDY 


#$00 




E0F6 


4C 


D4 


BB 


JMP 


$BBD4 




E0F9 


C9 


FO 




CMP 


#$F0 




EOFB 


DO 


07 




BNE 


$E104 




EOFD 


84 


38 




STY 


$38 




EOFF 


86 


37 




STX 


$37 




ElOl 


4C 


63 


A6 


JMP 


$A663 




E104 


AA 






TAX 






E105 


DO 


02 




BNE 


$E109 




E107 


A2 


IE 




LDX 


#$1E 




E109 


4C 


37 


A4 


JMP 


$A437 






ElOC 


20 


D2 


FF 


JSR 


$FFD2 




ElOF 


BO 


E8 




BCS 


$E0F9 




Elll 


60 






RTS 







timer 1 high 
timer 2 low 
timer 2 high 

pointer to last RND val 
put in FAC 

pointer to constant 
FAC = FAC * constant 

pointer to constant 
FAC = FAC + constant 

switch digits in FAC 



exponent 

make FAC le-ft binding 

round FAC and save 

set BASIC-RAM end 
to CLR command 

number for "BREAK" 
out-put error message 

BASIC BSOUT 
out-put a character 



***************************** BASIC BASIN 

El 12 20 CF FF JSR $FFCF get a character 

El 15 BO E2 BCS $E0F9 

El 17 60 RTS 



A-77 



El 18 20 AD E4 JSR *E4AD set output device 

El IB BO DC BCS *EOF9 
El ID 60 RTS 



*«-N-«««««*««««^««««««'if-«»««««-««-« BAISC CHKIN 

El IE 20 C6 FF JSR *FFC6 set input device 

E121 BO D6 BCS *E0F9 

El 23 60 RTS 



BASIC GETIN 

E124 20 E4 FF JSR *FFE4 get a character 

El 27 BO DO BCS *EOF9 
El 29 60 RTS 



SYS command 



CI OA 


£\J 


OH 




«j on 




FRMNVM^ Qet numeric term 


E12D 


20 


F7 


B7 


JSR 


*B7F7 


change to address format 


E130 


A9 


El 




LDA 


#$:E1 




E132 


48 






PHA 




return address on stack 


E133 


A9 


46 




LDA 


#$46 




E135 


48 






PHA 






E136 


AD 


OF 


03 


LDA 


*030F 


status 


E139 


48 






PHA 






E13A 


AD 


OC 


03 


LDA 


*030C 


accumulator 


E13D 


AE 


OD 


03 


LDX 


*030D 


switch X register 


E140 


AC 


OE 


03 


LDY 


*030E 


and Y register 


E143 


28 






PLP 




set status 


E144 


6C 


14 


00 


JMP 


(*0014) 


call routine 


E147 


08 






PHP 




save status 


E148 


8D 


OC 


03 


STA 


*030C 


accumulator 


E14B 


8E 


OD 


03 


STX 


*030D 


save X register. 


E14E 


8C 


OE 


03 


STY 


$f030E 


Y register, and 


E151 


68 






PLA 






E152 


8D 


OF 


03 


STA 


*030F 


status again 


E155 


60 






RTS 







E156 20 D4 El JSR *E1D4 

E159 A6 2D LDX *2D 

E15B A4 2E LDY *2E 

E15D A9 2B LDA #*2B 

E15F 20 D8 FF JSR *FFD8 

El 62 BO 95 BCS *E0F9 

E164 60 RTS 



SAVE command 
parameter (name, prim, sec) 
end address= BASIC prgm end 

start address = pointer to 
save routine BASIC start 



««-x-«««-)(-«»«*«-N-««»««««<)t-4(--)f--if-«-)(-«** VERIFY command 
E165 A9 01 LDA #*01 verify -flag 

El 67 2C .BYTE $2C 



El 68 A9 00 LDA #*00 
E16A 85 OA STA *0A 
E16C 20 D4 El JSR *E1D4 



LOAD command 
1 oad -F 1 ag 
save 

get parameters 



A-78 



E16F 


A5 


OA 




LDA 


*0A 


flag 


E171 


A6 


2B 




LDX 


$2B 


start address = BASIC-start 


E173 


A4 


2C 




LDY 


*2C 




E175 


20 


D5 


FF 


JBR 


*FFD5 


load routine 


E178 


BO 


57 




BCS 


$E1D1 




E17A 


A5 


OA 




LDA 


*OA 


load/verify flag 


E17C 


FO 


17 




BEQ 


*E195 


E17E 


A2 


IC 




LDX 


#*1C 


offset fo verify error 


E180 


20 


B7 


FF 


JSR 


*FFB7 


get status 


E183 


29 


lO 




AND 


#$io 


isolate error — bit 


E185 


DO 


17 




BNE 


*E19E 


status— bit set, then error 


E187 


A5 


7A 




LDA 


*7A 




E189 


C9 


02 




CMP 


#*02 


check on direct mode 


E18B 


FO 


07 




BEQ 


*E194 


yes, the ready 


E18D 


A9 


64 




LDA 


#$64 


pointer to "OK" 


E18F 


AO 


A3 




LDY 


#*A3 




E191 


4C 


IE 


AB 


JMP 


$AB1E 


out-put 


E194 


60 






RTS 






E195 


20 


B7 


FF 


JSR 


*FFB7 


get status 


E198 


29 


BF 




AND 


#*BF 


clear EOF-bit 


E19A 


FO 


05 




BEQ 


*E1A1 


no error 


E19C 


A2 


ID 




LDX 


#:(1D 


offset for "LOAD ERROR" 


E19E 


4C 


37 


A4 


JMP 


*A437 


out-put error message 


ElAi 


A5 


7B 




LDA 


*7B 




EiA3 


C9 


02 




CMP 


#*02 


check direct mode 


E1A5 


DO 


OE 




BNE 


*E1B5 


no, then continue 


E1A7 


86 


2D 




STX 


*2D 


end address = program-end 


E1A9 


84 


2E 




STY 


*2E 




ElAB 


A9 


76 




LDA 


#*76 


pointer on "READY." 


ElAD 


AO 


A3 




LDY 


#*A3 




ElAF 


20 


IE 


AB 


JSR 


$AB1E 


out-put string 


CI DO 


4C 


2A 


A5 


JMP 


$A52A 


find programs lines over,CLR 


E1B5 


20 


8E 


A6 


JSR 


$A68E 


CHRGET pointer to start 


E1B8 


20 


33 


A5 


JSR 


*A533 


fin program lines again 


EIBB 


4C 


77 


A6 


JMP 


*A677 


initialize ROSTORE, BASIC 




BASIC-OPEN command 


El BE 


20 


19 


E2 


JSR 


*E219 


get parameter 


ElCl 


20 


CO 


FF 


JSR 


*FFCO 


OPEN routine 


E1C4 


BO 


OB 




BCS 


*E1D1 




E1C6 


60 






RTS 








BASIC-CLOSE command 


E1C7 


20 


19 


E2 


JSR 


*E219 


get parameter 


EICA 


A5 


49 




LDA 


*49 


file number 


EICC 


20 


C3 


FF 


JSR 


*FFC3 


CLOSE routine 


EICF 


90 


C3 




BCC 


*E194 




ElDl 


4C 


F9 


EO 


JMP 


$E0F9 


Get parameter for LOAD/SAVE 


EiD4 


A9 


00 




LDA 


#*00 


default for length of name 


E1D6 


20 


BD 


FF 


JSR 


*FFBD 


set filename parameter 


E1D9 


A2 


01 




LDX 


#*01 


default for device number 


EIDB 


AO 


00 




LDY 


#*00 


default for second, address 


EIDD 


20 


BA 


FF 


JSR 


*FFBA 


set file parameter 



A-79 



ElEO 


20 


06 


E2 


JSR 


*E206 


■further characters? 


E1E3 


20 


57 


E2 


JSR 


*E257 


get -filename 


E1E6 


20 


06 


E2 


JSR 


*E206 


•further characters? 


E1E9 


20 


00 


E2 


JSR 


*E200 


get parameter 


ElEC 


AO 


00 




LDY 


#*oo 




ElEE 


86 


49 




STX 


*49 




EIFO 


20 


BA 


FF 


JSR 


*FFBA 


set -file parameter 


E1F3 


20 


06 


E2 


JSR 


*E206 


more characters? 


E1F6 


20 


00 


E2 


JSR 


*E200 


get parameter 


E1F9 


8A 






TXA 






EIFA 


A8 






TAY 






EIFB 


A6 


49 




LDX 


*49 




EIFD 


4C 


BA 


FF 


JMP 


*FFBA 


set -file parameter 



E200 20 OE E2 JSR *E20E checks on "," and more let- 

E203 4C 9E B7 JMP *B79E get byte value to X ters 



Checks on -further characters 
E206 20 79 00 JSR *0079 CHRGDT get last character 

E209 DO 02 BNE *E20D more characters , then return 

E20B 68 PLA otherwise return to higher 

E20C 68 PLA routine 

E20D 60 RTS 



E20E 


20 


FD 


AE 


JSR 


*AEFD 


checks on comma 


E211 


20 


79 


00 


JSR 


*0079 


CHRGDT get last character 


E214 


DO 


F7 




BNE 


*E20D 


more characters, then return 


E216 


4C 


08 


AF 


JMP 


*AF08 


"SYNTAX ERROR" 




Get parameter -for OPEN 


E219 


A9 


00 




LDA 


#*00 


de-fault -for length o-f name 


E21B 


20 


BD 


FF 


JSR 


*FFBD 


set -filename parameter 


E21E 


20 


11 


E2 


JSR 


*E211 


more characters? 


E221 


20 


9E 


B7 


JSR 


*B79E 


gets logical -file # to X 


E224 


86 


49 




STX 


*49 




E226 


8A 






TXA 






E227 


A2 


01 




LDX 


#*01 


de-fault device address 


E229 


AO 


00 




LDY 


#*00 


de-fault -for secondary addrs 


E22B 


20 


BA 


FF 


JSR 


$FFBA 


set -file parameter 


E22E 


20 


06 


E2 


JSR 


*E206 


more characters? 


E231 


20 


00 


E2 


JSR 


*E200 


gets device address 


E234 


86 


4A 




STX 


:$4A 




E236 


AO 


00 




LDY 


#*00 




E238 


A5 


49 




LDA 


*49 




E23A 


EO 


03 




CPX 


#*03 




E23C 


90 


01 




BCC 


*E23F 




E23E 


88 






DEY 






E23F 


20 


BA 


FF 


JSR 


*FFBA 


set -file parameter 


E242 


20 


06 


E2 


JSR 


*E206 


more characters? 


E245 


20 


00 


E2 


JSR 


*E200 


gets secondary address 


E248 


8A 






TXA 






E249 


A8 






TAY 






E24A 


A6 


4A 




LDX 


*4A 





A- 80 



E24C 


A5 


49 




LDA 


*49 






E24E 


20 


BA 


FF 


JSR 


*FFBA 


set, -file parameter 




E251 


20 


06 


E2 


JSR 


*E206 


more characters? 




E254 


20 


OE 


E2 


JSR 


*E20E 






E257 


20 


9E 


AD 


JSR 


*AD9E 


FRMEVL get term 




E25A 


20 


A3 


B6 


JSR 


$B6A3 


checks on string term 




E25D 


A6 


22 




LDX 


*22 






E25F 


A4 


23 




LDY 


*23 






E261 


4C 


BD 


FF 


JMP 


*FFBD 






***************************** 


BASIC-COS -function 




E264 


A9 


EO 




LDA 


#*E0 






E266 


AO 


E2 




LDY 


#4:E2 


pointer to constant Pi / 


2 


E268 


20 


67 


B8 


JSR 


*B867 


add to FAC 




***************************** 


BASIC-SIN -function 




E26B 


20 


OC 


BC 


JSR 


*BCOC 


round FAC and put in ARB 




E26E 


A9 


E5 




LDA 


#*E5 






E270 


AO 


E2 




LDY 


tt$E2 


pointer to constant Pi * 


2 


E272 


A6 


6E 




LDX 


$6E 






E274 


20 


07 


BB 


JSR 


*BB07 


divide FAC by 2 * Pi 




E277 


20 


OC 


BC 


JSR 


*BCOC 


round FAC and put in ARG 




E27A 


20 


CC 


BC 


JSR 


*BCCC 


INT -function 




E27D 


A9 


00 




LDA 


#*00 






E27F 


85 


6F 




STA 


*6F 






E281 


20 


53 


B8 


JSR 


$B853 


ARG minus FAC 




E284 


A9 


EA 




LDA 


#$EA 






E286 


AO 


E2 




LDY 


#*E2 


pointer to constant 0.25 




E288 


20 


50 


B8 


JSR 


*B850 


0-25 - FAC 




E28B 


A5 


66 




LDA 


$66 






E28D 


48 






PHA 




sign on stack 




E28E 


10 


OD 




BPL 


*E29D 


positive? 




E290 


20 


49 


B8 


JSR 


*B849 


FAC -4-0.5 




E293 


A5 


66 




LDA 


$66 


sign 




E295 


30 


09 




BMI 


*E2A0 


negative? 




E297 


A5 


12 




LDA 


$12 






E299 


49 


FF 




EOR 


#*FF 


turn "flag around 




E29B 


85 


12 




STA 


$12 






E29D 


20 


B4 


BF 


JSR 


$BFB4 


change o-f signs 




E2A0 


A9 


EA 




LDA 


#$EA 






E2A2 


AO 


E2 




LDY 


#$E2 


pointer to constant 0.25 




E2A4 


20 


67 


B8 


JSR 


$B867 


FAA + 0.25 




E2A7 


68 






PLA 




get sign 




E2A8 


10 


03 




BPL 


$E2AD 


posi ti ve? 




E2AA 


20 


B4 


BF 


JSR 


$BFB4 


change o-f sign 




E2AD 


A9 


EF 




LDA 


#$EF 






E2AF 


AO 


E2 




LDY 


#$E2 


OQint"PK* I" n rkf-il \/nofn(3 c no-f -f 




E2B1 


4C 


43 


EO 


JMP 


$E043 


calculate polynomial 




***************************** 


BASIC— TAN -f unn-i- i nn 




E2B4 


20 


CA 


BB 


JSR 


$BBCA 


FAC tn At-t-tim tt"^ 




E2B7 


A9 


OO 




LDA 


#$00 






E2B9 


85 


12 




STA 


$12 


set -f 1 ag 




E2BB 


20 


6B 


E2 


JSR 


$E26B 


calculate SIN 




E2BE 


A2 


4E 




LDX 


#$4E 







A-81 



E2C0 


AO 


00 




LDY 


#$00 


E2C2 


20 


F6 


EO 


JSR 


$E0F6 


E2C5 


A9 


57 




LDA 


#2*57 


E2C7 


AO 


00 




LDY 


#$00 


E2C9 


20 


A2 


BB 


JSR 


$BBA2 


E2CC 


A9 


00 




LDA 


#$00 


E2CE 


85 


66 




STA 


$66 


E2D0 


A5 


12 




LDA 


$12 


E2D2 


20 


DC 


E2 


JSR 


$E2DC 


E2D5 


A9 


4E 




LDA 


#$4E 


E2D7 


AO 


00 




LDY 


#$00 


E2D9 


4C 


OF 


BB 


JMP 


$BBOF 


E2DC 


48 






PHA 




E2DD 


4C 


9D 


E2 


JMP 


$E29D 


************************* 


E2E0 


81 


49 


OF 


DA A2 


E2E5 


83 


49 


OF 


DA A2 


E2EA 


7F 


00 


00 


00 00 


E2EF 


05 










E2F0 


84 


E6 


lA 


2D IB 


E2F5 


86 


28 


07 


FB F8 


E2FA 


87 


99 


68 


89 01 


E2FF 


87 


23 


35 


DF El 


E304 


86 


A5 


5D 


E7 28 


E309 


83 


49 


OF 


DA A2 


E30E 


A5 


66 




LDA 


$66 


E310 


48 






PHA 




E311 


10 


03 




BPL 


$E316 


E313 


20 


B4 


BF 


JSR 


$BFB4 


E316 


A5 


61 




LDA 


$61 


E318 


48 






PHA 




E319 


C9 


81 




CMP 


#$81 


E31B 


90 


07 




BCC 


$E324 


E31D 


A9 


BC 




LDA 


#$BC 


E31F 


AO 


B9 




LDY 


#$B9 


E321 


20 


OF 


BB 


JSR 


$BBOF 


E324 


A9 


3E 




LDA 


#$3E 


E326 


AO 


E3 




LDY 


#$E3 


E328 


20 


43 


EO 


JSR 


$E043 


E32B 


68 






PLA 




E32C 


C9 


81 




CMP 


#$81 


E32E 


90 


07 




BCC 


$E337 


E330 


A9 


EO 




LDA 


#$E0 


E332 


AO 


E2 




LDY 


#$E2 


E334 


20 


50 


B8 


JSR 


$B850 


E337 


68 






PLA 




E338 


10 


03 




BPL 


$E33D 


E33A 


4C 


B4 


BF 


JMP 


$BFB4 


E33D 


60 






RTS 





***************************** 

E33E OB 



pointer to helping accum. 
FAC to helping accumulator 

pointer to accum. #3 
accum- #3 to FAC 

sign 
•flag 

calculate COS 

pointer to helping accum. 
divide by FAC (SIN) 

calculate COS 

Constants for SIN and COS 
1.57079633 Pi /2 
6.28318531 2*Pi 
0.25 

5 = polynomial degree 

-14.3813907 

42.0077971 

-76.7041703 

81.6052237 

-41.3147021 

6.28318531 2*Pi 

BASIC-ATN -function 
sign 
save 

positive? 
change o-f signs 
exponent 
save 

compare number with 1 
smaller? 

pointer to constant 1 
divide 1 by FAC (recipr ical ) 

pointer to polynome coe-f-f- 

calculate polynome 

get back exponent 

was number smaller than 1? 



pointer to constant Pi /2 

Pi/2 minus FAC 

get sign 

positive? 

change o-f signs 

Floating— point constants -for 
ll=polynome degree ATN 



A-82 



E33F 


76 


B3 


83 


BD 


D3 




£344 


79 


IE 


F4 


A6 


F5 




E349 


7B 


83 


FC 


BO 


10 
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/ 
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Ir 


o/ 
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E353 


7C 


DE 


«-JO 




CI 


■ V»J*Tjt / 7 X OO 


E35a 


7D 


14 


64 


70 


4C 


07'?AST1 QAS 


no 


/ 1/ 


nv 

Df 


CH 


S X 


/ H 


— ■ vO VOV X V X CStJ 


E362 


7D 


63 


30 


88 




■ X X V/VO^I* X o 


E367 


7E 


92 


44 


99 


3A 


- .142839808 


E36C 


7E 


4C 


CC 


91 


C7 


. 19999912 


E371 


7F 


AA 


AA 


AA 


13 


-.333333316 


E376 


81 


OO 


00 


00 


00 


1 



•N--N-«*«««««-)f-K-«^t-)(--)f««-N--N-«««*«')i-»-K--)i--N- BASIC NMI re~enterance 



E37B 


20 


CC 


FF 


JSR 


*FFCC 


CLRCH 


E37E 


A9 


00 




LDA 


#*00 




E380 


85 


13 




STA 


*13 


input device = keyboard 


E382 


20 


7A 


A6 


JSR 


*A67A 


initialize BASIC 


E385 


58 






CLI 






E386 


A2 


80 




LDX 


#*80 




E3B8 


6C 


00 


03 


JMP 


(*0300> 


BASIC warm— start vector 


E38B 


8A 






TXA 




(JMP *E38B) 


E3BC 


30 


03 




BMI 


*E391 




E38E 


4C 


3A 


A4 


JMP 


*A43A 


out— put error message 


E391 


4C 


74 


A4 


JMP 


*A474 


ready mode 




BASIC cold-start 


E394 


20 


53 


E4 


JSR 


*E453 


set BASIC vectors 


E397 


20 


BF 


E3 


JSR 


*E3BF 


initialize RAM 


E39A 


20 


22 


E4 


JSR 


*E422 


out-put power — on message 


E39D 


A2 


FB 




LDX 


#*FB 


set stack-pointer 


E39F 


9A 






TXS 




E3A0 


DO 


E4 




BNE 


*E386 


to warm-start 



***************************** Copy o-f CHRGET-routine 



E3A2 


E6 


7A 


INC 


*7A 


E3A4 


DO 


02 


BNE 


*E3A8 


E3A6 


E6 


7B 


INC 


*7B 


E3A8 


AD 


60 


EA LDA 


*EA60 


E3AB 


C9 


3A 


CMP 


#*3A 


E3AD 


BO 


OA 


BCS 


*E3B9 


E3AF 


C9 


20 


CMP 


#*20 


E3B1 


FO 


EF 


BEQ 


*E3A2 


E3B3 


38 




SEC 




E3B4 


E9 


30 


SBC 


#*30 


E3B6 


38 




SEC 




E3B7 


E9 


DO 


SBC 


#*DO 


E3B9 


60 




RTS 





***************************** 

E3BA 80 4F C7 52 58 

***************************** 
E3BF A9 4C LDA #*4C 
E3C1 85 54 STA *54 



Start value -for RND -function 
.811635157 

Initialize RAM for BASIC 
JMP 

"for -functions 



A- 83 



E3C3 


8D 


10 


03 


STA 


^0310 


-for USR— functions 


E3C6 


A9 


48 




LDA 


#$48 


points to "ILLEGAL QUANTITY" 


E3C8 


AO 


B2 




LDY 


#$B2 


E3CA 


8D 


11 


03 


STA 


*0311 


save as USR-vector 


E3CD 


8C 


12 


03 


STY 


$0312 






rrf 


oi 

X 




LDA 


#:$91 




E3D2 


AO 


B3 




LDY 


#*B3 




E3D4 


85 


05 




STA 


*05 


vector for -fixed to -floating 


E3D6 


84 


06 




STY 


$06 


point conversion 


E3D8 


A9 


AA 




LDA 


tt$AA 


$B3AA 


E3DA 


AO 


Bl 




LDY 


#$B1 




E3DC 


85 


03 




STA 


$03 


vector -for -floating to -fixed 


E3DE 


84 


04 




STY 


$04 


point conversion 



E3E0 


A2 


IC 




LDX 


#$1C 




E3E2 


BD 


A2 


E3 


LDA 


$E3A2,X 


CHRGET-routine 


E3E5 


95 


73 




STA 


$73, X 


copy into RAM 


E3E7 


CA 






DEX 






E3E8 


10 


F8 




BPL 


$E3E2 




E3EA 


A9 


03 




LDA 


#$03 




E3EC 


85 


53 




STA 


$53 


step-width -for garbage- 


E3EE 


A9 


00 




LDA 


#$00 


collection 


E3F0 


85 


68 




STA 


$68 




E3F2 


85 


13 




STA 


$13 


input-device = keyboard 


E3F4 


85 


18 




STA 


$18 




E3F6 


A2 


01 




LDX 


#$01 




E3F8 


8E 


FD 


01 


STX 


$01FD 




E3FB 


8E 


FC 


Ol 


STX 


$01 FC 




E3FE 


A2 


19 




LDX 


#$19 




E400 


86 


16 




STX 


$16 


pointer -for string stack 


E402 


38 






SEC 






E403 


20 


9C 


FF 


JSR 


$FF9C 


get RAM start 


E406 


86 


2B 




STX 


$2B 




E408 


84 


2C 




STY 


$2C 


save as BASIC start 


E40A 


38 






SEC 






E40B 


20 


99 


FF 


JSR 


$FF99 


get RAM end 


E40E 


86 


37 




STX 


$37 




E410 


84 


38 




STY 


$38 


save as BASIC end 


E412 


86 


33 




STX 


$33 




E414 


84 


34 




STY 


$34 




E416 


AO 


00 




LDY 


#$00 




E418 


98 






TYA 






E419 


91 


2B 




STA 


($2B) ,Y 


$00 to BASIC start 


E41B 


E6 


2B 




INC 


$2B 




E41D 


DO 


02 




BNE 


$E421 


BASIC start + 1 


E41F 


E6 


2C 




INC 


$2C 




E421 


60 






RTS 







, ****************************** 

E422 A5 2B LDA $2B 

E424 A4 2C LDY $2C 

E426 20 08 A4 JSR $A408 

E429 A9 73 LDA #$73 

E42B AO E4 LDY #$E4 



pointer to BASIC-RAM start 
checks on -free memory 
pointer to power — on message 



A-84 



E42D 


20 


IE 


AB 


JSR 


$AB1E 


out— put string 


E430 


A5 


37 




LDA 


*37 




E432 


38 






SEC 




BASIC end 


E433 


E5 


2B 




SBC 


*2B 




E435 


AA 






TAX 




ninus BASIC start 


E436 


A5 


38 




LDA 


*3B 




E438 


E5 


2C 




SBC 


*2C 


equals bytes free 


E43A 


20 


CD 


BD 


JSR 


$BDCD 


out-put quantity 


E43D 


A9 


60 




LDA 


#*60 


pointer to "BASIC 


E43F 


AO 


E4 




LDY 


#*E4 




E441 


20 


IE 


AB 


JSR 


$AB1E 


out —put st r i ng 


E444 


4C 


44 


A6 


JMP 


*A644 


to NEW command 



FREE" 



E447 8B E3 83 A4 7C A5 lA A7 
E44F E4 A7 86 AE 



Table o-f BASIC vectors 



E453 A2 OB LDX #*0B 

E455 BD 47 E4 LDA *E447,X 

E458 9D 00 03 STA *0300,X 

E45B CA DEX 

E45C 10 F7 BPL *E455 

E45E 60 RTS 



Load BASIC vectors 



*****4t-***ik******^************* Opperating system 



E45F 00 20 42 41 53 49 43 20 

E467 42 59 54 45 53 20 46 52 
E46F 45 45 OD 00 

E473 93 OD 20 20 20 20 2A 2A 

E47B 2A 2A 20 43 4F 4D 4D 4F 

E483 44 4F 52 45 20 36 34 20 

E48B 42 41 53 49 43 20 56 32 

E493 20 2A 2A 2A 2A OD OD 20 

E49B 36 34 4B 20 52 41 4D 20 

E4A3 53 59 53 54 45 4D 20 20 
E4AB 00 

E4AC 5C 



System messages 
BASIC BYTES FREE 

(CLR) **** COMMODORE 64 
BASIC V2 **** 

(CR) (CR) 64K RAM SYSTEM 



***************************** 



E4AD 


48 




PHA 




E4AE 


20 


C9 FF 


JSR 


*FFC9 


E4B1 


AA 




TAX 




E4B2 


68 




PLA 




E4B3 


90 


01 


BCC 


*E4B6 


E4B5 


8A 




TXA 




E4B6 


60 




RTS 




E4B7 


AA 









E4D9 



. - AA 



BASIC-CKOUT routine 
CKOUT set out-put device 



***************************** 



A-85 



E4DA 


AD 21 DO LDA *D021 


back— ground color 


E4DD 


91 F3 STA (*F3) ,Y 




E4DF 


60 RTS 








Waits -for Commodore-key 


E4E0 


69 02 ADC #*02 


2*256/60 = wait 8-5 seconds 


E4E2 


A4 91 LDY *91 


check -flag 


E4E4 


C8 I NY 




E4E5 


DO 04 oNt *t.*H:,r> 


key pressed? 


E4E7 


C5 Al CMP *A1 


is time over? 


E4E9 


DO F7 BNE *E4E2 




E4EB 


60 RTS 






Timer constants -for RS-232 


E4EC 


19 26 


$2619=9753 50baud /Baud-Rate 


E4EE 


44 19 


$1944 = 6468 75 baud 


E4F0 


lA 11 


*111A = 4378 110 baud 


E4F2 


E8 OD 


*ODE8 = 3560 134.5 baud 


E4F4 


70 OC 


*0C70 =3184 150 baud 


E4F6 


06 06 


*0606 = 1542 300 baud 


E4F8 


Dl 02 


^fj^Ui. — /oo o\j\j Dauu 


E4FA 


37 01 


$0137 =311 1200 baud 


E4FC 


AE 00 


*OOAE =174 1800 baud 


E4FE 


69 00 


$0069 =105 2400 baud 




Get basic address 0"f the CIA 


E500 


A2 00 LDX #*00 




E502 


AO DC LDY #4^DC 


*DC00 


E504 


60 RTS 




***************************** 


niis^ c 1 i nckc aniH ^f~il i imnc: 

TT U 1 JL X 1 ICr=3 €311 lU i_WJL Ullll la 


E505 


A2 28 LDX #*28 


40 columns 


E507 


AO 19 LDY #*19 


25 lines 


E509 


60 RTS 




***************************** 


Set cursor (C=0) /get (C=l) 


E50A 


BO 07 BCS *E513 




E50C 


86 D6 STX *D6 


1 ine 


E50E 


84 D3 STY *D3 


column 


E510 


20 6C E5 JSR $:E56C 


sex. t-Ui iaujr 


E513 


A6 D6 LDX $D6 




E5i5 


A4 D3 LDY *D3 




E517 


60 RTS 




***************************** 


Reset screen 


E518 


20 AO E5 JSR *E5A0 


initialize video-controller 


E51B 


A9 00 LDA #*00 




E51D 


8D 91 02 STA *0291 


enable shift-Commodore 


E520 


85 CF STA *CF 


cursor not in blink-phase 


E522 


A9 48 LDA #*48 




E524 


8D 8F 02 STA *028F 


($028F) = *EB4B 


E527 


A9 EB LDA #:*EB 




E529 


8D 90 02 STA *0290 


pointer to addressis -for 


E52C 


A9 OA LDA #*0A 


key-board decoding 


E52E 


8D 89 02 STA $0289 


counter -for repeat-speed 



A-86 



E531 


BD 


8C 


02 


STA 


*028C 






A9 


OE 




LDA 


#$OE 


1 ight— blue 


E536 


8D 


86 


02 


STA 


*0286 


present color 


I— i-iw y 




riA 
\j*t 




L.1JH 




E53B 


8D 


8B 


02 


STA 


*028B 


repeat-speed 


E53E 


A9 


OC 




LDA 


#*0C 


E540 


85 


CD 




STA 


*CD 


cursor blink-time 


E542 


85 


CC 




STA 


*CC 


cursor blink— flag 




Clear screen 


E544 


AD 


88 


02 


LDA 


:$0288 


memory-page for screen— RAM 




Uv 


oU 




QRA 


#$80 






Ho 






T/W/ 

1 HY 








AO 


uu 




1 T\/\ 

L.1JR 














i Ra 






E54D 


94 


D9 




STY 


*D9,X 


addresses of the screen- 


E54F 


18 






CLC 




lines 


E550 


69 


28 




ADC 


#*28 


add 40 (one line) 


E552 


90 


01 




BCC 


$E555 




E554 


C8 






I NY 






E555 


E8 






INX 






E556 


EO 


lA 




CPX 


#*1A 


26, all lines? 


E558 


DO 


F3 




BNE 


*E54D 




E55A 


A9 


FF 




LDA 


#*FF 




E55C 


95 


D9 




STA 


*^D9,X 




E55E 


A2 


18 




LDX 


#*18 


24 number of lines minus 1 


E560 


20 


FF 


E9 


JSR 


*E9FF 


clear screen-line 


E563 


CA 






DEX 






E564 


10 


FA 




BPL 


*E560 






Cursor home 


E566 


AO 


00 




LDY 


#*00 




E568 


84 


D3 




STY 


*D3 


cursor column 


E56A 


84 


D6 




STY 


$D6 


cursor line 




Calc. cursor position, set 


E56C 


A6 


D6 




LDX 


*D6 


cursor line screen— pointer 


E56E 


A5 


D3 




LDA 


*D3 


cursor column 


E570 


B4 


D9 




LDY 


*D9,X 




E572 


30 


08 




BMI 


*E57C 




E574 


18 






CLC 






E575 


69 


28 




ADC 


#*28 




E577 


85 


D3 




STA 


*D3 




E579 


CA 






DEX 






E57A 


10 


F4 




BPL 


$E570 




E57C 


B5 


D9 




LDA 


^^D9,X 




E57E 


29 


03 




AND 


#*03 




E580 


OD 


88 


02 


ORA 


*0288 




E5B3 


85 


D2 




STA 


*D2 




E585 


BD 


FO 


EC 


LDA 


*ECFO,X 




E588 


85 


Dl 




STA 


$D1 




E58A 


A9 


27 




LDA 


#*27 




E58C 


E8 






INX 






E58D 


B4 


D9 




LDY 


*D9,X 




E58F 


30 


06 




BMI 


$E597 





A- 87 



E591 


18 






CLC 






E592 


69 


28 




ADC 


#*28 




E594 


E8 






INX 






E595 


10 


F6 




BPL 


$E58D 




E597 


85 


D5 




STA 


*D5 




E599 


60 






RTS 






***************************** 




E59A 


20 


AO 


E5 


JSR 


*E5A0 


initialize video-controller 


E59D 


4C 


66 


E5 


JMP 


$E566 


cursor home 


***************************** 


Initialize video-control er 


E5A0 


A9 


03 




LDA 


#$03 




E5A2 


85 


9A 




STA 


$:9A 


out-put on screen 


E5A4 


A9 


00 




LDA 


#*00 




E5A6 


85 


99 




STA 


$99 


input -from keyboard 


E5A8 


A2 


2F 




LDX 


#*2F 




E5AA 


BD 


B8 


EC 


LDA 


*ECB8,X 


write constants into 


E5AD 


9D 


FF 


CF 


STA 


*CFFF,X 


vi deo-contr ol 1 er 


E5B0 


CA 






DEX 






E5B1 


DO 


F7 




BNE 


*E5AA 




E5B3 


60 






RTS 






***************************** 


Get character -from keyboard- 


E5B4 


AC 


77 


02 


LDY 


*0277 


get -first character 


E5B7 


A2 


00 




LDX 


#*oo 




E5B9 


BD 


78 


02 


LDA 


$0278, X 


move bu-f-fer up -front 


E5BC 


9D 


77 


02 


STA 


$0277, X 




E5BF 


E8 






INX 






E5C0 


E4 


C6 




CPX 


*C6 


compare with number o-f 


E5C2 


DO 


F5 




BNE 


*E5B9 


characters 


E5C4 


C6 


C6 




DEC 


*C6 


decrease character number 


E5C6 


98 






TYA 




get character in accumulator 


E5C7 


58 






CLI 




E5C8 


18 






CLC 






E5C9 


60 






RTS 






***************************** 


Waiting-loop -for key-board 


E5CA 


20 


16 


E7 


JSR 




out-put character input 


E5CD 


A5 


C6 




LDA 


4PC6 


number o-f pressed keys 


E5CF 


85 


CC 




STA 


*CC 




E5D1 


8D 


92 


02 


STA 


*0292 




E5D4 


FO 


F7 




BEQ 


*E5CD 




E5D6 


78 






SEI 






E5D7 


A5 


CF 




LDA 


*CF 


cursor in blink-phase? 


E5D9 


FO 


OC 




BEQ 


*E5E7 




E5DB 


A5 


CE 




LDA 


*CE 




E5DD 


AE 


87 


02 


LDX 


*0287 




E5E0 


AO 


00 




LDY 


#*00 




E5E2 


84 


CF 




STY 


*CF 




E5E4 


20 


13 


EA 


JSR 


$EA13 




E5E7 


20 


B4 


E5 


JSR 


*E5B4 




E5EA 


C9 


83 




CMP 


#*83 


code -for "shi -f t— run"? 


E5EC 


DO 


10 




BNE 


*E5FE 




E5EE 


A2 


09 




LDX 


#*09 


9 characters 


E5F0 


78 






SEI 







A-88 



E5F1 


86 


C6 




STX 


$C6 




save number o-f characters 


E5F3 


BD 


E6 


EC 


LDA 


*ECE6 , 


X 


"load (cr) run (cr) " 


E5F6 


9D 


76 


02 


STA 


*0276 , 


X 


get in keyboard bu-ffer 


E5F9 


CA 






DEX 








E5FA 


DO 


F7 




BNE 


*E5F3 






E5FC 


FO 


CF 




BEQ 


*E5CD 






E5FE 


C9 


OD 




CMP 


#$OD 




"cr" 


E600 


DO 


C8 




BNE 


*E5CA 




no, then back to waiting- 


E602 


A4 


D5 




LDY 


*D5 




length o-f screen— line/ loop 


E604 


84 


DO 




STY 


$D0 




set cr— flag 


E606 


Bl 


Dl 




LDA 


(*D1) , 


Y 


get character -from screen 


E608 


C9 


20 




CMP 


#*20 




eliminate sqace at line— end 


E60A 


DO 


03 




BNE 


$E60F 






E60C 


88 






DEY 








E60D 


DO 


F7 




BNE 


^E606 






E60F 


C8 






I NY 








E610 


84 


C8 




STY 


$C8 




save position as index 


E612 


AO 


OO 




LDY 


#*00 






E614 


8C 


92 


02 


STY 


*0292 




cursor— column = 


E617 


84 


D3 




STY 


*D3 






E619 


84 


D4 




STY 


*D4 






E61B 


A5 


C9 




LDA 


$C9 






E61D 


30 


IB 




BMI 


$E63A 






E61F 


A6 


D6 




LDX 


$D6 






E621 


20 


ED 


E6 


JSR 


*E6ED 






E624 


E4 


C9 




CPX 


*C9 






E626 


DO 


12 




BNE 


*E63A 






E628 


A5 


CA 




LDA 


*CA 




last column 


E62A 


85 


D3 




STA 


*D3 




bring into column— pointer 


E62C 


C5 


C8 




CMP 


*C8 




compare with indes 


E62E 


90 


OA 




BCC 


*E63A 






E630 


BO 


2B 




BCS 


*E65D 






***************************** 


Get a character "from screen 


E632 


98 






TYA 








E633 


48 






PHA 








E634 


8A 






TXA 








E635 


48 






PHA 








E636 


A5 


DO 




LDA 


$D0 




CR— f 1 ag 


E638 


FO 


93 




BEQ 


*E5CD 




no, then to waiting— loop 


E63A 


A4 


D3 




LDY 


$D3 




column 


E63C 


Bi 


Dl 




LDA 


(*^D1) , 


Y 


get character "from screen 


E63E 


85 


D7 




STA 


*D7 






E640 


29 


3F 




AND 


#*3F 






E642 


06 


D7 




ASL 


$D7 




and change to ASCII 


E644 


24 


D7 




BIT 


*D7 




E646 


lO 


02 




BPL 


«:E64A 






E648 


09 


80 




ORA 


#*80 






E64A 


90 


04 




BCC 


*E650 






E64C 


A6 


D4 




LDX 


*D4 






E64E 


DO 


04 




BNE 


$E654 






E650 


70 


02 




BVS 


*E654 






E652 


09 


40 




□RA 


#*40 






E654 


E6 


D3 




INC 






move cursor one forward 


E656 


20 


84 


E6 


JSR 


$E684 




check on high— comma 



A-89 



E659 


C4 


C8 




CPY 


$C8 


cursor in last column? 


E65B 


DO 


17 




BNE 


*E674 




E65D 


A9 


00 




LDA 


#*00 




E65F 


85 


DO 




STA 


*D0 


"CR"-f lag 


E661 


A9 


OD 




LDA 


#:^0D 




E663 


A6 


99 




LDX 


*99 




E665 


EO 


03 




CPX 


#*03 


input -from screen? 


E667 


FO 


06 




BEQ 


$E66F 


yes 


E669 


A6 


9A 




LDX 


*9A 


out-put on screen? 


E66B 


EO 


03 




CPX 


#$03 


yes 


E66D 


FO 


03 




BEQ 


*E672 




E66F 


20 


16 


E7 


JSR 


*E716 


write character on screen 


E672 


A9 


OD 




LDA 


tt*OD 




E674 


85 


D7 




STA 


*D7 




E676 


68 






PLA 






E677 


AA 






TAX 






E678 


68 






PLA 






E679 


A8 






TAY 






E67A 


A5 


D7 




LDA 


*D7 


screen— code 


E67C 


C9 


DE 




CMP 


#$DE 


compare with code -for Pi 


11.0/ c. 


U\J 






one 


$E682 




E680 


A9 


FF 




LDA 


#*FF 


yes, substitute by BASIC- 


E682 


18 






CLC 




code -for Pi 


E683 


60 






RTS 






***************************** 


Check on high comma 


E684 


C9 


22 




CMP 


#*22 




E686 


DO 


08 




BNE 


*E690 


no, then ready 


E688 


A5 


D4 




LDA 


$D4 




E68A 


49 


01 




EOR 


#*oi 


i_ijtr 1 1 cir uuii lu 1 IX ^1 1 wujiiciiica 1 x 


E68C 


85 


D4 




STA 


*D4 




E68E 


A9 


22 




LDA 


#*22 


restore high— comma code 


E690 


60 






RTS 






***************************** 




E691 


09 


40 




ORA 


#*40 




E693 


A6 


C7 




LDX 


*C7 




E695 


FO 


02 




BEQ 


*E699 




E697 


09 


80 




ORA 


#*80 




E699 


A6 


D8 




LDX 


$D8 




E69B 


FO 


02 




BEQ 


*E69F 




E69D 


C6 


D8 




DEC 


*D8 




E69F 


AE 


86 


02 


LDX 


$0286 


color code 


E6A2 


20 


13 


EA 


JSR 


*EA13 


write character into screen- 


E6A5 


20 


B6 


E6 


JSR 


$E6B6 


update line— start table/ 


E6A8 


68 






PLA 






E6A9 


A8 






TAY 






E6AA 


A5 


D8 




LDA 


$D8 




E6AC 


FO 


02 




BEQ 


*E6BO 




E6AE 


46 


D4 




LSR 


*D4 




E6B0 


68 






PLA 






E6B1 


AA 






TAX 






E6B2 


68 






PLA 






E6B3 


18 






CLC 






E6B4 


58 






CLI 







A-90 



E6B5 60 RTS 



***************************** Calculate MSB -for new line- 
starts 



79 chacacters ( 2 lines)? 



E6B6 


20 


B3 


E8 


JSR 


*E8B3 


E6B9 


E6 


D3 




INC 


*D3 


E6BB 


A5 


D5 




LDA 


*D5 


E6BD 


C5 


D3 




CMP 


*D3 


E6BF 


BO 


3F 




BCS 


*E700 


E6C1 


C9 


4F 




CMP 


#*4F 


E6C3 


FO 


32 




BEQ 


*E6F7 


E6C5 


AD 


92 


02 


LDA 


*0292 


E6CB 


FO 


03 




BEQ 


*E6CD 


E6CA 


4C 


67 


E9 


JMP 


$E967 


E6CD 


A6 


D6 




LDX 


*D6 


E6CF 


EO 


19 




CPX 


#*19 


E6D1 


90 


07 




BCC 


*E6DA 


E6D3 


20 


EA 


E8 


JSR 


*E8EA 


E6D6 


C6 


D6 




DEC 


$:D6 


E6D8 


A6 


D6 




LDX 


$D6 


E6DA 


16 


D9 




ASL 


*D9,X 


E6DC 


56 


D9 




LSR 


:^D9,X 


E6DE 


E8 






INX 




E6DF 


B5 


D9 




LDA 


*D9,X 


E6E1 


09 


80 




□RA 


#*80 


E6E3 


95 


D9 




STA 


*D9,X 


E6E5 


CA 






DEX 




E6E6 


A5 


D5 




LDA 


*D5 


E6EB 


18 






CLC 




E6E9 


69 


28 




ADC 


#•^28 


E6EB 


85 


D5 




STA 


*D5 


E6ED 


B5 


D9 




LDA 


*D9,X 


E6EF 


30 


03 




BMI 


*E6F4 


E6F1 


CA 






DEX 




E6F2 


DO 


F9 




BNE 


*E6ED 


E6F4 


4C 


FO 


E9 


JMP 


*E9F0 


E6F7 


C6 


D6 




DEC 


$D6 


E6F9 


20 


7C 


E8 


JSR 


*E87C 


E6FC 


A9 


00 




LDA 


#*00 


E6FE 


85 


D3 




STA 


*D3 


E700 


60 






RTS 




E701 


A6 


D6 




LDX 


:|:D6 


E703 


DO 


06 




BNE 


*E70B 


E705 


86 


D3 




STX 


*D3 


E707 


68 






PLA 




E708 


68 






PLA 




E709 


DO 


9D 




BNE 


*E6A8 


E70B 


CA 






DEX 




E70C 


86 


D6 




STX 


$D6 


E70E 


20 


6C 


E5 


JSR 


*E56C 


E711 


A4 


D5 




LDY 


*D5 


E7i3 


84 


D3 




STY 


*D3 


E715 


60 






RTS 




E7i6 


48 






PHA 




E717 


85 


D7 




STA 


*D7 


E719 


8A 






TXA 




E71A 


48 






PHA 





A-91 



E71B 


98 






TYA 






C./ X l-r 








PHA 






El/ XL/ 


Mv 


00 




LDA 


#$00 




C./ IP 


0«-l 


DO 




STA 


$D0 




r--7'-j i 


















ri7 




LDA 


$D7 




EZ. / 


10 


03 




BPL 


*E72A 








HA 


c / 




^E7D4 




E72A 


C9 


OD 




CMP 


#$0D 




E72C 


DO 


03 




BNE 


*E731 




E72E 


4C 


91 


E8 


J MP 


*E891 




E731 


C9 


20 




CMP 


#*20 




E733 


90 


10 




BCC 


$E745 




c / 


PQ 

l_r / 


60 




CMP 


#$=60 






90 


04 




BCC 


$E73D 




C. / 


29 


DF 




AND 


#$DF 






nr» 
i/v 






BNE 


:*E73F 




E73D 


29 


3F 




AND 


#^3F 




E73F 


20 


84 


E6 


JSR 


$E684 




C / *Tj£ 


4C 


93 


E6 


J MP 


$E693 




E745 


A6 


D8 




LDX 


$D8 




E747 


FO 


03 




BEQ 


*E74C 




t. / *tV 


AP 


Q7 


E6 


J MP 


$E697 




C / *Tl_r 


PQ 


14 




CMP 


#$14 




C / *Tt 


DO 


2E 




BNE 


*E77E 




c. / 


7D 






TYA 






E751 


DO 


06 




BNE 


$E759 




E753 


20 


01 


E7 


JSR 


*E701 




E756 


4C 


73 


E7 


J MP 


*E773 




E759 


20 


Al 


E8 


JSR 


*E8A1 




E75C 


88 






DEY 






El / vJl/ 


nA 


D3 




STY 


$D3 




P7=%P 
n./«jn 




24 


EA 


JSR 


*EA24 




P7A'? 
C./ 


PQ 
Lf CD 






I NY 






r—-7 / -7 


i 

ol 






L_UH 


\ ^IJ X ^ ) 


Y 


ci/oD 


QQ 
00 






npv 






t /oo 


1 
V 1 


U X 




QTA 
a 1 M 


($D1 ) f 


Y 


E768 


C8 






T KIV 

X NY 






E769 


D 1 


r 




l_UH 




Y 




QQ 

ao 






npv 






E76C 


91 


r 




ID 1 H 




Y 


P7AP 

tZ. / OEl 


C8 






I NY 






P7AP 


C4 


D5 




CPY 


*D5 




C"77 1 


IJyJ 


C.r 




BNE 


$E762 




P77T[ 


M / 


20 




LDA 


#$20 




P77*=? 


Q1 
V X 


Dl 




STA 


<$D1 ) , 


Y 


f— -7-7-7 
t / / / 




DO 


02 


LDA 


$0286 




P77^ 


91 


F3 




STA 


($F3) , 


Y 


E77C 


10 


4D 




BPL 


$E7CB 




P77P 
c. / / c 


A6 


D4 




LDX 


$D4 






FO 


03 




BEQ 


$E785 




E782 


4C 


97 


E6 


JMP 


$E697 




E785 


C9 


12 




CMP 


#$12 




E787 


DO 


02 




BNE 


$E78B 




E789 


85 


C7 




STA 


$C7 




E78B 


C9 


13 




CMP 


#$13 





A-92 



E7BD 


DO 


03 




BNE 


*E792 


E78F 


20 


66 


E5 


JSR 


*E566 


E792 


C9 


ID 




CMP 


#$1D 


E794 


DO 


17 




BNE 


*E7AD 


E796 


C8 






I NY 




E797 


20 


B3 


E8 


JSR 


*E8B3 


E79A 


84 


D3 




STY 


*D3 


E79C 


88 






DEY 




E79D 


C4 


D5 




CPY 


^DS 


E79F 


90 


09 




BCC 


*E7AA 


E7A1 


C6 


D6 




DEC 


*D6 


E7A3 


20 


7C 


E8 


JSR 


*E87C 


E7A6 


AO 


00 




LDY 


#*00 


E7A8 


84 


D3 




STY 


$D3 


E7AA 


4C 


A8 


E6 


JMP 


*E6A8 


E7AD 


C9 


1 1 




CMP 


#*11 


E7AF 


DO 


ID 




BNE 


*E7CE 


E7B1 


18 






CLC 




E7B2 


98 






TYA 




E7B3 


69 


28 




ADC 


#*28 


E7B5 


A8 






TAY 




E7B6 


E6 


D6 




INC 


*D6 


E7B8 


C5 


D5 




CMP 


*D5 


E7BA 


90 


EC 




BCC 


*E7A8 


E7BC 


FO 


EA 




BEQ 


*E7A8 


E7BE 


C6 


D6 




DEC 


$D6 


E7C0 


E9 


28 




SBC 


#$28 


E7C2 


90 


04 




BCC 


*E7C8 


E7C4 


85 


D3 




STA 


*D3 


E7C6 


DO 


F8 




BNE 


*E7C0 


E7C8 


20 


7C 


E8 


JSR 


*E87C 


E7CB 


4C 


A8 


E6 


JMP 


$E6A8 


E7CE 


20 


CB 


E8 


JSR 


*E8CB 


E7D1 


4C 


44 


EC 


JMP 


*EC44 


E7D4 


29 


7F 




AND 


#*7F 


E7D6 


C9 


7F 




CMP 


#$7F 


E7D8 


DO 


02 




BNE 


*E7DC 


E7DA 


A9 


5E 




LDA 


#*5E 


E7DC 


C9 


20 




CMP 


#*20 


E7DE 


90 


03 




BCC 


*E7E3 


E7E0 


4C 


91 


E6 


JMP 


*E691 


E7E3 


C9 


OD 




CMP 


#*0D 


E7E5 


DO 


03 




BNE 


*E7EA 


E7E7 


4C 


91 


E8 


JMP 


$E891 


E7EA 


A6 


D4 




LDX 


*D4 


E7EC 


DO 


3F 




BNE 


*E82D 


E7EE 


C9 


14 




CMP 


#*14 


E7F0 


DO 


37 




BNE 


*E829 


E7F2 


A4 


D5 




LDY 


:*D5 


E7F4 


Bl 


Dl 




LDA 


(*D1 ) , 


E7F6 


C9 


20 




CMP 


#*20 


E7FS 


DO 


04 




BNE 


*E7FE 


E7FA 


C4 


D3 




CPY 


*D3 


E7FC 


DO 


07 




BNE 


*EB05 


E7FE 


CO 


4F 




CPY 


#*4F 


E800 


FO 


24 




BEQ 


*E826 



A-93 



EB02 20 65 E9 JSR *E965 

ES05 A4 D5 LDY *D5 

E807 20 24 EA JSR *EA24 

E80A 88 DEY 

E80B Bl Dl LDA (*D1),Y 

E80D C8 I NY 

E80E 91 Dl STA (:*D1),Y 

E810 88 DEY 

E811 Bl F3 LDA (*F3) ,Y 

E813 C8 I NY 

E814 91 F3 STA (*F3) ,Y 

E816 88 DEY 

E817 C4 D3 CPY «3 

E819 DO EF BNE *E80A 

ESIB A9 20 LDA #*20 

E81D 91 Dl STA <*D1),Y 

E81F AD 86 02 LDA *0286 

E822 91 F3 STA (*F3) ,Y 

E824 E6 D8 INC *D8 

E826 4C AS E6 JMP *E6A8 

E829 A6 D8 LDX *D8 

E82B FO 05 BEQ *E832 

E82D 09 40 ORA tt*40 

E82F 4C 97 E6 JMP *E697 

***************************** 



E832 


C9 


11 




CMP 


#*11 


E834 


DO 


16 




BNE 


*E84C 


E836 


A6 


D6 




LDX 


$D6 


E838 


FO 


37 




BEQ 


*E871 


E83A 


C6 


D6 




DEC 


^D6 


E83C 


A5 


D3 




LDA 


*D3 


E83E 


38 






SEC 




E83F 


E9 


28 




SBC 


#*28 


E841 


90 


04 




BCC 


*E847 


E843 


85 


D3 




STA 


*D3 


E845 


10 


2A 




BPL 


*E871 


E847 


20 


6C 


E5 


JSR 


*E56C 


E84A 


DO 


25 




BNE 


*E871 


E84C 


C9 


12 




CMP 


#*12 


E84E 


DO 


04 




BNE 


*E854 


E850 


A9 


00 




LDA 


#*00 


E852 


85 


C7 




STA 


*C7 


E854 


C9 


ID 




CMP 


#*1D 


E856 


DO 


12 




BNE 


$E86A 


E858 


98 






TYA 




E859 


FO 


09 




BEQ 


*EB64 


E85B 


20 


Al 


E8 


JSR 


*E8A1 


E85E 


88 






DEY 




E85F 


84 


D3 




STY 


$D3 


E861 


4C 


AS 


E6 


JMP 


*E6A8 


E864 


20 


01 


E7 


JSR 


*E701 



space 

write to present position 
set 

col or 



A-94 



E867 


4C 


A8 


E6 


JMP 


$E6A8 


E86A 


C9 


13 




CMP 


#*13 


E86C 


DO 


06 




BNE 


*E874 


E86E 


20 


44 


E5 


JSR 


*E544 


E871 


4C 


A8 


E6 


JMP 


*E6A8 


E874 


09 


80 




ORA 


#$80 


E876 


20 


CB 


E8 


JSR 


:»E8CB 


E879 


4C 


4F 


EC 


JMP 


*EC4F 


E87C 


46 


C9 




LSR 


*C9 


E87E 


A6 


D6 




LDX 


*D6 


E880 


E8 






INX 




E881 


EO 


19 




CPX 


#:*19 


E883 


DO 


03 




BNE 


$E888 


E885 


20 


EA 


E8 


JSR 


$E8EA 


E888 


B5 


D9 




LDA 


*D9,X 


E88A 


10 


F4 




BPL 


$E880 


E88C 


86 


D6 




STX 


$D6 


E88E 


4C 


6C 


E5 


JMP 


*E56C 


E891 


A2 


00 




LDX 


#*00 


E893 


86 


D8 




STX 


$D8 


E895 


86 


C7 




STX 


*C7 


E897 


86 


D4 




STX 


*D4 


E899 


86 


D3 




STX 


*D3 


E89B 


20 


7C 


E8 


JSR 


*E87C 


E89E 


4C 


AS 


E6 


JMP 


$E6A8 


E8A1 


A2 


02 




LDX 


#$02 


E8A3 


A9 


00 




LDA 


#*00 


E8A5 


C5 


D3 




CMP 


*D3 


E8A7 


FO 


07 




BEQ 


$E8B0 


E8A9 


18 






CLC 




E8AA 


69 


28 




ADC 


#$28 


E8AC 


CA 






DEX 




E8AD 


DO 


F6 




BNE 


$E8A5 


E8AF 


60 






RTS 




E8B0 


C6 


D6 




DEC 


*D6 


E8B2 


60 






RTS 




E8B3 


A2 


02 




LDX 


#$02 


E8B5 


A9 


27 




LDA 


#$27 


E8B7 


C5 


D3 




CMP 


$D3 


E8B9 


FO 


07 




BED 


$E8C2 


EBBB 


18 






CLC 




E8BC 


69 


28 




ADC 


#$28 


E8BE 


CA 






DEX 




E8BF 


DO 


F6 




BNE 


$E8B7 


EBCl 


60 






RTS 




E8C2 


A6 


D6 




LDX 


$D6 


E8C4 


EO 


19 




CPX 


#$19 


E8C6 


FO 


02 




BEQ 


$E8CA 


E8C8 


E6 


D6 




INC 


$D6 


E8CA 


60 






RTS 




E8CB 


A2 


OF 




LDX 


#$0F 


E8CD 


DD 


DA 


E8 


CMP 


$E8DA,)< 


E8D0 


FO 


04 




BEQ 


$E8D6 


E8D2 


CA 






DEX 




E8D3 


10 


F8 




BPL 


$E8CD 



check on color-codes 
^ound 



A-95 



E8D5 60 RTS 

E8D6 BE 86 02 BTX *0286 

E8D9 60 RTS 

***************************** 
E8DA 90 05 IC 9F 9C IE IF 9E 
E8E2 81 95 96 97 98 99 9 A 9B 



set color — code 



Table of color-codes 



***************************** Scroll screen 



E8EA 


A5 


AC 




LDA 


$AC 


E8EC 


48 






PHA 




E8ED 


A5 


AD 




LDA 


$AD 


E8EF 


48 






PHA 




E8F0 


A5 


AE 




LDA 


$AE 


E8F2 


48 






PHA 




E8F3 


A5 


AF 




LDA 


*AF 


E8F5 


48 






PHA 




E8F6 


A2 


FF 




LDX 


#*FF 


E8F8 


C6 


D6 




DEC 


$D6 


E8FA 


C6 


C9 




DEC 


*C9 


E8FC 


CE 


A5 


02 


DEC 


*02A5 


E8FF 


E8 






INX 




E900 


20 


FO 


E9 


JSR 


*E9F0 


E903 


EO 


18 




CPX 


#$18 


E905 


BO 


OC 




BCS 


*E913 


E907 


BD 


Fl 


EC 


LDA 


*ECF1,X 


E90A 


85 


AC 




STA 


$AC 


E90C 


B5 


DA 




LDA 


$DA,X 


E90E 


20 


C8 


E9 


JSR 


*E9C8 


E911 


30 


EC 




BMI 


$E8FF 


E913 


20 


FF 


E9 


JSR 


*E9FF 


E916 


A2 


00 




LDX 


#*00 


E918 


B5 


D9 




LDA 


*D9,X 


E91A 


29 


7F 




AND 


#*7F 


E91C 


B4 


DA 




LDY 


$DA,X 


E91E 


10 


02 




BPL 


*E922 


E920 


09 


80 




ORA 


#$80 


E922 


95 


D9 




STA 


*D9,X 


E924 


E8 






INX 




E925 


EO 


18 




CPX 


#$18 


E927 


DO 


EF 




BNE 


$E918 


E929 


A5 


Fl 




LDA 


$F1 


E92B 


09 


80 




ORA 


#$80 


E92D 


85 


Fl 




STA 


$F1 


E92F 


A5 


D9 




LDA 


$D9 


E931 


10 


C3 




BPL 


$E8F6 


E933 


E6 


D6 




INC 


$D6 


E935 


EE 


A5 


02 


INC 


$02A5 


E938 


A9 


7F 




LDA 


#$7F 


E93A 


8D 


00 


DC 


STA 


$DCOO 


E93D 


AD 


01 


DC 


LDA 


$DC01 


E940 


C9 


FB 




CMP 


#$FB 


E942 


08 






PHP 




E943 


A9 


7F 




LDA 


#$7F 


E945 


8D 


00 


DC 


STA 


$DCOO 



shi-ft screen-line up 
clear screen— line 



CTRL-key pressed? 



A-96 



E948 


28 




PLP 




E949 


DO 


OB 


BNE 


*E956 


E94B 


AO 


00 


LDY 


tt^OO 


E94D 


EA 




NOP 




E94E 


CA 




DEX 




E94F 


DO 


FC 


BNE 


*E94D 


E951 


88 




DEY 




E952 


DO 


F9 


BNE 


*E94D 


E954 


84 


C6 


STY 


*C6 


E956 


A6 


D6 


LDX 


$D6 


E958 


68 




PLA 




E959 


85 


AF 


STA 


*AF 


E95B 


68 




PLA 




E95C 


85 


AE 


STA 


*AE 


E95E 


68 




PLA 




E95F 


85 


AD 


STA 


*AD 


E961 


68 




PLA 




E962 


85 


AC 


STA 


*AC 


E964 


60 




RTS 





delay— loop 

number o-f pressed keys 



Inserting a second-line 



E965 


A6 


D6 




LDX 


$D6 


E967 


E8 






INX 




E968 


B5 


D9 




LDA 


*D9,X 


E96A 


10 


FB 




BPL 


^E967 


E96C 


8E 


A5 


02 


STX 


*02A5 


E96F 


EO 


18 




CPX 


#*18 


E971 


FO 


OE 




BEQ 


*E981 


E973 


90 


OC 




BCC 


:*E981 


E975 


20 


EA 


EB 


JSR 


*E8EA 


E978 


AE 


A5 


02 


LDX 


*02A5 


E97B 


CA 






DEX 




E97C 


C6 


D6 




DEC 


$D6 


E97E 


4C 


DA 


E6 


JMP 


*E6DA 



E981 


A5 


AC 




LDA 


$AC 


E983 


48 






PHA 




E984 


A5 


AD 




LDA 


*AD 


E986 


48 






PHA 




E987 


A5 


AE 




LDA 


*AE 


E989 


48 






PHA 




E98A 


A5 


AF 




LDA 


*AF 


E98C 


48 






PHA 




E98D 


A2 


19 




LDX 


#*19 


E98F 


CA 






DEX 




E990 


20 


FO 


E9 


JSR 


*E9F0 


E993 


EC 


A5 


02 


CPX 


:^02A5 


E996 


90 


OE 




BCC 


*E9A6 


E998 


FO 


OC 




BEQ 


*E9A6 


E99A 


BD 


EF 


EC 


LDA 


*ECEF,X 


E99D 


85 


AC 




STA 


*AC 


E99F 


B5 


D8 




LDA 


*D8,X 


E9Ai 


20 


C8 


E9 


JSR 


*E9C8 


E9A4 


30 


E9 




BMI 


*E98F 



A-97 



tVrfO 




Pr 


C 7 


«jor\ 


JS-CLTfP r 


tVHv 




X / 




l_i/A 




E9AB 


EC 


A5 


02 


CPX 


^02A5 


E9AE 


90 


OF 




BCC 


^E9BF 


E9B0 


B5 


DA 




LDA 


^DA , X 


E9B2 


29 


7F 




AND 


#^^7F 


CODA 








LDY 


^D9 , X 


C.VDO 




02 




BPL 


$E9BA 










ORA 


#$80 




95 


DA 




STA 


$DA,X 


E9BC 


CA 






DEX 




E9BD 


DO 


EC 




BNE 


*E9AB 


E9BF 


AE 


A5 


02 


LDX 


$02A5 


E9C2 


20 


DA 


E6 


JSR 


$E6DA 


E9C5 


4C 


58 


E9 


JMP 


*E958 




E9CB 


29 


03 




AND 


»*03 


E9CA 


OD 


88 


02 


ORA 


*0288 


E9CD 


85 


AD 




STA 


$AD 


E9CF 


20 


EO 


E9 


JSR 


*E9E0 


E9D2 


AO 


27 




LDY 


#*27 


E9D4 


Bl 


AC 




LDA 


(*AC) ,Y 


E9D6 


91 


Dl 




STA 


(*D1) ,Y 


E9D8 


Bl 


AE 




LDA 


(^:AE) ,Y 


E9DA 


91 


F3 




STA 


(*F3) ,Y 


E9Ii: 


88 






DEY 




E9DD 


10 


F5 




BPL 


*E9D4 


E9DF 


60 






RTS 





***************************** 



E9E0 


20 


24 EA 


JSR 


*EA24 


E9E3 


A5 


AC 


LDA 


*AC 


E9E5 


85 


AE 


STA 


$AE 


E9E7 


A5 


AD 


LDA 


*AD 


E9E9 


29 


03 


AND 


#:$03 


E9EB 


09 


D8 


□RA 


#*D8 


E9ED 


85 


AF 


STA 


*AF 


E9EF 


60 




RTS 





***************************** 

E9F0 BD FO EC LDA *ECFO,X 

E9F3 85 Dl STA *D1 

E9F5 B5 D9 LDA *D9,X 

E9F7 29 03 AND #*03 

E9F9 OD 88 02 ORA *0288 

E9FC 85 D2 STA *D2 

E9FE 60 RTS 

***************************** Clear screen-linis 

E9FF AO 27 LDY #*27 

EAOl 20 FO E9 JSR *E9F0 

EA04 20 24 EA JSR *EA24 

EA07 A9 20 LDA #$20 



A-98 



EA09 


91 


Dl 




STA 


($D1 ) » Y 




EAOB 


20 


DA 


E4 


JSR 


$E4DA 




EAOE 


EA 






NOP 






EAOF 


88 






DEY 






EAIO 


10 


F5 




BPL 


*EA07 




EAi2 


60 






RTS 






EA13 


A8 






TAY 






EA14 


A9 


02 




LDA 


#*02 




EA16 


85 


CD 




STA 


*CD 


set bl i nk~coLin'ter' at r'epedt 


EA18 


20 


24 


EA 


JSR 


*EA24 


■f Line 1 1 on 


EAIB 


98 






TYA 








Get character and color* on 


EAIC 


A4 


D3 




LDY 


*D3 


column position screen 


EAIE 


91 


Dl 




STA 


(*D1) ,Y 


character to accumulator 


EA20 


8A 






TXA 




color"~code to X 


EA21 


91 


F3 




STA 


(*F3) ,Y 


write into color—RAM 


EA23 


60 






RTS 








CalCn pointer to color—RAM 


EA24 


A5 


Dl 




LDA 


*D1 


$D1/$D2 — pointer to screen 


EA26 


85 


F3 




STA 


*F3 


RAM position 


EA28 


A5 


D2 




LDA 


*D2 


EA2A 


29 


03 




AND 


#*03 




EA2C 


09 


D8 




□RA 


#:$D8 


high— byte = $D8 


EA2E 


85 


F4 




STA 


*F4 


^F3/^F4 — pointer to color— 


EA30 


60 






RTS 




RAM position 




Interupt routine 


EA31 


20 


EA 


FF 


JSR 


*FFEA 


stop— key, increase time 


EA34 


A5 


CC 




LDA 


*CC 


blink— flag "for cursor 


EA36 


DO 


29 




BNE 


*EA61 


not blinking, then continue 


EA38 


C6 


CD 




DEC 


*CD 


lower blink— count 


EA3A 


DO 


25 




BNE 


*EA61 


not zero, then continue 


EA3C 


A9 


14 




LDA 


#*14 


set blink counter to 20 


EA3E 


85 


CD 




STA 


*CD 




EA40 


A4 


D3 




LDY 


*D3 


cursor column 


EA42 


46 


CF 




LSR 


*CF 


blink— switch zero the C=l 


EA44 


AE 


87 


02 


LDX 


*0287 


color under cursor 


EA47 


Bl 


Dl 




LDA 


(*D1) ,Y 


set character — code 


EA49 


BO 


11 




BCS 


*EA5C 


blink— switch was on, then 


EA4B 


E6 


CF 




INC 


*CF 


blink— switch on continue 


EA4D 


85 


CE 




STA 


*CE 


save character under cursor 


EA4F 


20 


24 


EA 


JSR 


*EA24 


calculate pointer to color — 


EA52 


Bl 


F3 




LDA 


(*F3) ,Y 


get color— code RAM 


EA54 


8D 


87 


02 


STA 


*0287 


and save 


EA57 


AE 


86 


02 


LDX 


^0286 


f~nl n K* — f~ r^d i tr\ r\ caf t — i ty~ c 


EA5A 


A5 


CE 




LDA 


*CE 


character under cursor 


EA5C 


49 


SO 




EOR 


#*80 


flip RVS-bit 


EASE 


20 


IC 


EA 


JSR 


*EA1C 


set character and color 


EA61 


A5 


01 




LDA 


*01 




EA63 


29 


10 




AND 


#*10 


checks tape-key 


EA65 


FO 


OA 




BEQ 


*EA71 


pressed? 



A-99 



EA67 


AO 


oo 




LDY 


#$00 




EA69 


84 


CO 




STY 


*co 




EA6B 


A5 


01 




LDA 


$01 




EA6D 


09 


20 




ORA 


#$20 


Tiape — drive ott 


EA6F 


DO 


08 




BNE 


$EA79 


EA71 


A5 


CO 




LDA 


$C0 




EA73 


DO 


06 




BNE 


$EA7B 




EA75 


A5 


01 




LDA 


$01 




EA77 


29 


IF 




AND 


#$1F 




EA79 


85 


01 




STA 


$01 


EA7B 


20 


87 


EA 


JSR 


$EA87 


keyboard-checking 


EA7E 


AD 


OD 


DC 


LDA 


$DCOD 


EA81 


68 






PLA 






EA82 


A8 






TAY 






EA83 


63 






PLA 




restore register 


EA84 


AA 






TAX 




EA85 


68 






PLA 




and return -from interrupt 


EA86 


40 






RTI 








Keyboard— checking 


EA87 


A9 


00 




LDA 


#$00 




EA89 


8D 


8D 


02 


STA 


$028D 


set back shift /CTRL— flag 


EA8C 


AO 


40 




LDY 


#$40 


$40 - no key pressed 


EA8E 


84 


CB 




STY 


$CB 


code -for pressed key 


EA90 


8D 


00 


DC 


STA 


$DCOO 




EA93 


AE 


01 


DC 


LDX 


$DC01 




EA96 


EO 


FF 




CPX 


#$FF 


no key pressed? 


EA98 


FO 


61 




BEQ 


$EAFB 


then end 


EA9A 


A8 






TAY 






EA9B 


A9 


81 




LDA 


#$81 




EA9D 


85 


F5 




STA 


$F5 




EA9F 


A9 


EB 




LDA 


#$EB 




EAAl 


85 


F6 




STA 


$F6 


pointer to table 1 $EB81 


EAA3 


A9 


FE 




LDA 


#$FE 




EAA5 


8D 


00 


DC 


STA 


$DCOO 




EAA8 


A2 


08 




LDX 


#$08 


8 matrix— lines 


EAAA 


48 






PHA 






EAAB 


AD 


Ol 


DC 


LDA 


$DC01 




EAAE 


CD 


01 


DC 


CMP 


$DC01 


keyboard, joystick, paddles 


EABl 


DO 


F8 




BNE 


$EAAB 


(data port B) 


EAB3 


4A 






LSR 




put bits, in order, into 


EAB4 


BO 


16 




BCS 


$EACC 


" 1 " = not pressed 


EAB6 


48 






PHA 






EAB7 


Bl 


F5 




LDA 


($F5) ,Y 


get ASCII-code from table 


EAB9 


C9 


05 




CMP 


#$05 




EABB 


BO 


OC 




BCS 


$EAC9 


bigger or equal to 5? 


EABD 


C9 


03 




CMP 


#$03 




EABF 


FO 


08 




BEQ 


$EAC9 


"STOP'" code? 


EACl 


OD 


8D 


02 


□RA 


$028D 




EAC4 


8D 


8D 


02 


STA 


$028D 


set flag 


EAC7 


10 


02 




BPL 


$EACB 




EAC9 


84 


CB 




STY 


$CB 


save number of key 


EACB 


68 






PLA 






EACC 


C8 






INV 






EACD 


CO 


41 




CPY 


#$41 





A-lOO 



EACF 


BO 


OB 




BCS 


*EADC 


bigger than $40? 


EADl 


CA 






DEX 






EAD2 


DO 


DF 




BNE 


$EAB3 


next matrix— column 


EAD4 


38 






SEC 






k.HuD 


6>Q 






PLA 






r— /\r\ / 








ROL 






fc.HU/ 


oD 


00 


DC 


ST A 


$DCOO 




EADA 


DO 


CC 




BNE 


$EAA8 


next matrix— line 


EADC 


68 






PLA 






EADD 


6C 


8F 


02 


J MP 


(*028F) 


urii-' ^h.c4a sets pointer to 


EAEO 


A4 


CB 




LDY 


*CB 


number o-f key table 


EAE2 


Bl 


F5 




LDA 


(*F5) ,Y 


get hjdUI 1— value -From table 


EAE4 


AA 






TAX 






EAE5 


C4 


C5 




CPY 


*C5 


uompare Miun xasxi Key 


EAE7 


FO 


07 




BEQ 


*EAFO 




EAE9 


AO 


10 




LDY 


#*io 




EAEB 


8C 


8C 


02 


STY 


$028C 


repeat— del ay counter 


EAEE 


DO 


36 




BNE 


$EB26 




EAFO 


29 


7F 




AND 


#*7F 


1-j.ear Di^ / 


EAF2 


2C 


8A 


02 


BIT 


*028A 


K*f3nc3A'f* -f-nr 1 t-»- 

r crpcrcai. Ttir ax x KCyS . 


EAF5 


30 


16 




BMI 


*EBOD 


bit 7 set, repeat all keys 


EAF7 


70 


49 




BVS 


*EB42 


bit 6 set y then ingnore 


EAF9 


C9 


7F 




CMP 


#*7F 


r tspcrai. uiixy ToxxuMing Keys 


fc.Mro 


FO 


29 




BEQ 


$EB26 




EAFD 


C9 


14 




CMP 


#*14 


L/C I— f xno 1 coae 


EAFF 


FO 


OC 




BEQ 


^EBOD 




EBOl 


C9 


20 




CMP 


#*20 


space 


EB03 


FO 


08 




BEQ 


*EBOD 




EB05 


C9 


ID 




CMP 


#*1D 


*-«-»• sor r ignu, cursor leTu 


EB07 


FO 


04 




BEQ 


*EBOD 




EB09 


C9 


1 1 




CMP 


#$1 1 


cursor up , cursor down 


EBOB 


DO 


35 




BNE 


*EB42 




EBOD 


AC 


8C 


02 


LDY 


*028C 


repeat— delay counter 


EBIO 


FO 


05 




BEQ 


*EB17 




EB12 


CE 


8C 


02 


DEC 


*028C 


1— wui 1 1- uuinfi 1 


CD 1 

b.D>l D 


DO 


2B 




BNE 


$EB42 




EB17 


CE 


8B 


02 


DEC 


*028B 


r t=;|ji:;<^x. »peeu cuunner 


EBIA 


DO 


26 




BNE 


*EB42 




EBIC 


AO 


04 




LDY 


#*04 




EBIE 


8C 


8B 


02 


STY 


*028B 


set counter again 


EB21 


A4 


C6 




LDY 


4kC6 


1 luiiiuer OT cnaraciiers in 


EB23 


88 






DEY 




keyboard— bu'f'f er 


EB24 


lO 


IC 




BPL 


$EB42 


liiur cr uiidll ui Icr C_ncli alt ILBr in 


EB26 


A4 


CB 




LDY 


*CB 


bu'f'fer, then ignore 


EB28 


84 


C5 




STY 


^C5 




EB2A 


AC 


8D 


02 


LDY 


:^028D 




EB2D 


ac 


8E 


02 


STY 


*028E 




EB30 


EO 


FF 




CPX 


#$FF 


I'i.csyuuar u L.uue xnvaixxu z 


EB32 


FO 


OE 




BEQ 


*EB42 


yes f then i gnor e 


EB34 


8A 






TXA 






EB35 


A6 


C6 




LDX 


:^C6 


Tt XJi L.i loir cxL_utrr 3 Xn KByDUITTSr 


EB37 


EC 


89 


02 


CPX 


$0289 


f~ (-J fTi pk j»- ca iaii 4* H mAV m 1 miliar* 


EB3A 


BO 


06 




BCS 


*EB42 


bu-f-fer -full, ignore charcter 


EB3C 


9D 


77 


02 


STA 


*0277 , X 


write characters into bu-f-fer 


EB3F 


E8 






INX 







A-101 



EB40 


8^ 


C6 




STX 


*C6 


EB42 


A9 


7F 




LDA 


#$7F 


EB44 


8D 


00 


DC 


STA 


«:DCOO 


EB47 


60 






RTS 






EB48 


AD 


8D 


02 


LDA 


$028D 


EB4B 


C9 


03 




CMP 


#*03 


EB4D 


DO 


15 




BNE 


$EB64 


EB4F 


CD 


8E 


02 


CMP 


*028E 


EB52 


FO 


EE 




BEQ 


*EB42 


EB54 


AD 


91 


02 


LDA 


*0291 


EB57 


30 


ID 




BMI 


*EB76 


EB59 


AD 


18 


DO 


LDA 


$D018 


EB5C 


49 


02 




EOR 


#$02 


EB5E 


BP 


18 


DO 


STA 


*D018 


EB61 


4C 


76 


EB 


JMP 


$EB76 


EB64 


OA 






ASL 




EB65 


C9 


08 




CMP 


#$08 


EB67 


90 


02 




BCC 


$EB66 


EB69 


A9 


06 




LDA 


#$06 


EB6B 


AA 






TAX 




EB6C 


BD 


79 


EB 


LDA 


$EB79,X 


EB6F 


85 


F5 




STA 


$F5 


EB71 


BD 


7A 


EB 


LDA 


$EB7A,X 


EB74 


85 


F6 




STA 


$F6 


EB76 


4C 


EO 


EA 


JMP 


$EAEO 



increase # of characters 
keyboard— matrix , ask as 

default 



Checks SHIFT, CTRL , Commodore 
■flag -for SHIFT/CTRL 

calculate pointer to decode 

table 

shift-commodore permitted? 
no, back to decoding 
shif tcommodore 
switch small /capitol case 



--eady 



EB79 81 EB C2 EB 03 EC 78 EC 



load pointer to keyboard- 
decoding table 

back to decoding 

Pointer to keyboard decoding 

table 



EB81 14 OD ID 88 85 86 87 11 
EB89 33 57 41 34 5A 53 45 01 
EB91 35 52 44 36 43 46 54 58 
EB99 37 59 47 38 42 48 55 56 
EBAl 39 49 4 A 30 4D 4B 4F 4E 
EBA9 2B 50 4C 2D 2E 3A 40 2C 
EBBl 5C 2A 3B 13 01 3D 5E 2F 
EBB9 31 5F 04 32 20 02 51 03 
EBCl FF 



Keyboard— decoding table 1, 
unshi f ted 



EBC2 94 8D 9D 8C 89 8A 8B 91 
EBCA 23 D7 CI 24 DA D3 C5 01 
EBD2 25 D2 C4 26 C3 C6 D4 D8 
EBDA 27 D9 C7 28 C2 C8 D5 D6 
EBE2 29 C9 CA 30 CD CB CF CE 
EBEA DB DO CC DD 3E 5B BA 3C 
EBF2 A9 CO 5D 93 01 3D DE 3F 
EBFA 21 5F 04 22 AO 02 Dl 83 
EC02 FF 



Keyboard— decoding table 2, 
shifted 



EC03 94 8D 9D 8C 89 8A 8B 91 
ECOB 96 B3 BO 97 AD AE Bl 01 



Keyboard-decoding table 3, 
"C=^" key 



A-102 



EC13 98 B2 AC 
ECIB 9A B7 A5 
EC23 29 A2 B5 
EC2B A6 AF B6 
EC33 AS DF 5D 
EC3B 81 5F 04 
EC43 FF 



99 BC BB A3 BD 
9B BF B4 B8 BE 
30 A7 Al B9 AA 
DC 3E 5B A4 3C 
93 01 3D DE 3F 
95 AO 02 AB 83 



EC44 


C9 


OE 




CMP 


#*0E 


EC46 


DO 


07 




BNE 


*EC4F 


EC48 


AD 


18 


DO 


LDA 


$D018 


EC4B 


09 


02 




ORA 


#*02 


EC4D 


DO 


09 




BNE 


*EC58 


EC4F 


C9 


8E 




CMP 


#$8E 


EC51 


DO 


OB 




BNE 


*EC5E 


EC53 


AD 


18 


DO 


LDA 


*D018 


EC56 


29 


FD 




AND 


#*FD 


EC58 


8D 


18 


DO 


STA 


*D018 


EC5B 


4C 


A8 


E6 


JMP 


$E6A8 


EC5E 


C9 


08 




CMP 


#^08 


EC60 


DO 


07 




BNE 


*EC69 


EC62 


A9 


80 




LDA 


#*80 


EC64 


OD 


91 


02 


ORA 


*0291 


EC67 


30 


09 




BMI 


$EC72 


EC69 


C9 


09 




CMP 


#*09 


EC6B 


DO 


EE 




BNE 


*EC5B 


EC6D 


A9 


7F 




LDA 


#$7F 


EC6F 


2D 


91 


02 


AND 


^=0291 


EC72 


8D 


91 


02 


STA 


*0291 


EC75 


4C 


A8 


E6 


JMP 


$E6A8 



Checks on control -character 
chr*(14) 

character generator 
to capital -letter mode 

chr$(142) 

small -letter mode 
set 

chr*(8) 

block shi -Ft /Commodore 
chr:^(9) 

re-enable shi-ft/ Commodore 



EC78 FF FF FF FF FF FF FF FF 
EC80 IC 17 01 9F lA 13 05 FF 
EC8S 9C 12 04 IE 03 06 14 18 
EC90 IF 19 07 9E 02 08 15 16 
EC98 12 09 OA 92 OD OB OF OE 
ECAO FF 10 OC FF FF IB OO FF 
ECAS IC FF ID FF FF IF IE FF 
ECBO 90 06 FF 05 FF FF 1 1 FF 
ECB8 FF 



Keyboard-decoding table 4, 

with CTRL-key 



Video-controller constants 

ECB9 00 00 00 00 00 00 00 00 
ECCl 00 00 00 00 00 00 00 00 
ECC9 00 9B 37 00 OO 00 08 00 
ECDl 14 OF 00 00 00 00 OO 00 
ECD9 OE 06 01 02 03 04 00 01 
ECEl 02 03 04 05 06 07 



Text a-fter SHIFT/ RUN STOP 
ECE7 4C 4F 41 44 OD 52 55 4E "LOAD (CR) RUN (CR) " 

EDEA OD 



A-103 



^^it.*^^^^*******it****^******** LSB-table o-f screenline- 
ECFO 00 28 50 78 AO C8 FO 18 starts 
ECF8 40 68 90 B8 EO 08 30 58 
EDOO 80 A8 DO F8 20 48 70 98 
ED08 CO 

***************************** I EC-bus routines 



««^«««*********************** 
ED09 09 40 ORA #$40 
EDOB 2C -BYTE $2C 

«.^«^«************************ 



EDOC 

EDOE 

EDll 

ED12 

ED14 

ED16 

ED17 

ED19 

EDIC 

EDIE 

ED20 

ED21 

ED23 

ED24 

ED27 

ED29 

ED2B 

ED2E 

ED31 

ED33 

ED36 

ED37 

ED3A 

ED3D 



09 20 ORA #«0 
20 A4 FO JSR *F0A4 
48 PHA 

24 94 BIT *94 

10 OA BPL *ED20 
38 SEC 

66 A3 ROR *A3 
20 40 ED JSR *ED40 
46 94 LSR $94 
46 A3 LSR *A3 
68 PLA 
85 95 STA *95 
78 SEI 
20 97 EE JSR *EE97 
C9 3F CMP tt*3F 
DO 03 BNE $ED2E 
20 85 EE JSR *EE85 
AD 00 DD LDA *DDOO 
09 08 ORA #$08 
8D OO DD STA $DDOO 
78 SEI 
20 8E EE JSR $EE8E 
20 97 EE JSR *EE97 
20 B3 EE JSR $EEB3 



Send TALK 



Send LISTEN 



set timer -for I EC time-out 



byte to be given out 



set ATN 



Out-put 1 byte to lEC-bus 



ED40 


78 






SEI 




ED41 


20 


97 


EE 


JSR 


$EE97 


ED44 


20 


A9 


EE 


JSR 


*EEA9 


ED47 


BO 


64 




BCS 


$EDAD 


ED49 


20 


85 


EE 


JSR 


$EE85 


ED4C 


24 


A3 




BIT 


*A3 


ED4E 


10 


OA 




BPL 


*ED5A 


ED50 


20 


A9 


EE 


JSR 


*EEA9 


ED53 


90 


FB 




BCC 


*ED50 


ED55 


20 


A9 


EE 


JSR 


*EEA9 


ED58 


BO 


FB 




BCS 


$ED55 


ED5A 


20 


A9 


EE 


JSR 


*EEA9 


ED5D 


90 


FB 




BCC 


$ED5A 


ED5F 


20 


8E 


EE 


JSR 


*EE8E 


ED62 


A9 


08 




LDA 


#$08 



A-104 



ED64 


85 


A5 




STA 


$A5 


ED66 


AD 


OO 


DD 


LDA 


*DDOO 


ED69 


CD 


00 


DD 


CMP 


*DDOO 


ED6C 


DO 


F8 




BNE 


$ED66 


ED6E 


OA 






ASL 




ED6F 


90 


3F 




BCC 


$EDBO 


ED71 


66 


95 




ROR 


*95 


ED73 


BO 


05 




BCS 


*ED7A 


ED75 


20 


AO 


EE 


JSR 


*EEAO 


ED78 


DO 


03 




BNE 


*ED7D 


ED7A 


20 


97 


EE 


JSR 


$EE97 


ED7D 


20 


85 


EE 


JSR 


*EE85 


ED80 


EA 






NOP 




ED81 


EA 






NOP 




ED82 


EA 






NOP 




ED83 


EA 






NOP 




ED84 


AD 


00 


DD 


LDA 


*DDOO 


ED87 


29 


DF 




AND 


#*DF 


ED89 


09 


10 




ORA 


#*10 


ED8B 


8D 


00 


DD 


STA 


*DDOO 


ED8E 


C6 


A5 




DEC 


*A5 


ED90 


DO 


D4 




BNE 


$:ED66 


ED92 


A9 


04 




LDA 


#*04 


ED94 


8D 


07 


DC 


STA 


*DC07 


ED97 


A9 


19 




LDA 


#*19 


ED99 


8D 


OF 


DC 


STA 


*DCOF 


ED9C 


AD 


OD 


DC 


LDA 


*DCOD 


ED9F 


AD 


OD 


DC 


LDA 


*DCOD 


EDA2 


29 


02 




AND 


#*02 


EDA4 


DO 


OA 




BNE 


*EDBO 


EDA6 


20 


A9 


EE 


JSR 


*EEA9 


EDA9 


BO 


F4 




BCS 


*ED9F 


EDAB 


58 






CLI 




EDAC 


60 






RTS 





set bit-counter -for serial 
out -put 



***************************** 

EDAD A9 80 LDA ik^BO 

EDAF 2C .BYTE *2C 

EDBO A9 03 LDA #*03 

EDB2 20 IC FE JSR *FE1C 

EDB5 58 CLI 

EDB6 18 CLC 

EDB7 90 4A BCC *EE03 



'DEVICE NOT PRESENT" 



"TIME OUT" 
set status 



***************************** 



EDB9 
EDBB 
EDBE 
EDCl 
EDC3 



85 95 



STA *95 



20 36 ED JSR *ED36 
AD 00 DD LDA $DDOO 



29 F7 



AND #*F7 



BD 00 DD STA *DD00 



EDC6 60 



RTS 



Send secondary address to 
save secndary adrs /LISTEN 
out -put with ATN 

set back ATN 



***************************** 
EDC7 85 95 STA $^95 
EDC9 20 36 ED JSR *ED36 



Send TALK secondary address 
save secondary address 
out— put with ATN 



A-105 



EDCC 


78 






SEI 




EDCD 


20 


AO 


EE 


JSR 


*EEAO 


EDDO 


20 


BE 


ED 


JSR 


*EDBE 


EDD3 


20 


85 


EE 


JSR 


*EE85 


EDD6 


20 


A9 


EE 


JSR 


*EEA9 


EDD9 


30 


FB 




BMI 


*EDD6 


EDDB 


58 






CLI 




EDDC 


60 






RTS 





EDDD 


24 


94 


BIT 


«:94 


EDDF 


30 


05 


BMI 


$EDE6 


EDEl 


38 




SEC 




EDE2 


66 


94 


ROR 


*94 


EDE4 


DO 


05 


BNE 


*EDEB 


EDE6 


48 




PHA 




EDE7 


20 


40 


ED JSR 


*ED40 


EDEA 


68 




PLA 




EDEB 


85 


95 


STA 


*95 


EDED 


18 




CLC 




EDEE 


60 




RTS 





lECOUT out-put byte one lEC- 

bus 



send byte to bus 



***************************** Send UNTALK 

EDEF 78 SEI 

EDFO 20 8E EE JSR *EE8E 

EDF3 AD 00 DD LDA *DDOO 

EDF6 09 08 ORA #*08 set ATN 

EDF8 8D 00 DD STA *DDOO 

EDFB A9 5F LDA #:*5F 

EDFD 2C -BYTE *2C 



***************************** Send UNLISTEN 



EDFD 


2C 


A9 


3F 


BIT 


*3FA9 


EEOO 


20 


11 


ED 


JSR 


*ED11 


EE03 


20 


BE 


ED 


JSR 


*EDBE 


EE06 


8A 






TXA 




EE07 


A2 


OA 




LDX 


#*0A 


EE09 


CA 






DEX 




EEOA 


DO 


FD 




BNE 


*EE09 


EEOC 


AA 






TAX 




EEOD 


20 


85 


EE 


JSR 


*EE85 


EEIO 


4C 


97 


EE 


JMP 


*EE97 



Mait -for 40 micro-seconds 



frequency on 



***************************** lECIN get character -from lEC 



EE13 


78 






SEI 




EE14 


A9 


00 




LDA 


#*00 


EE16 


85 


A5 




STA 


*A5 


EE18 


20 


85 


EE 


JSR 


*EE85 


EEIB 


20 


A9 


EE 


JSR 


*EEA9 


EEIE 


10 


FB 




BPL 


$EE1B 


EE20 


A9 


01 




LDA 


#*01 


EE22 


8D 


07 


DC 


STA 


*DC07 


EE25 


A9 


19 




LDA 


#*19 


EE27 


8D 


OF 


DC 


STA 


*DCOF 


EE2A 


20 


97 


EE 


JSR 


*EE97 


EE2D 


AD 


OD 


DC 


LDA 


*DCOD 



A-106 



EE30 


AD 


OD 


DC 


LDA 


*DCOD 


EE33 


29 


02 




AND 


#*02 


EE35 


DO 


07 




BNE 


*EE3E 


EE37 


20 


A9 


EE 


JSR 


*EEA9 


EE3A 


30 


F4 




BMI 


*EE30 


EE3C 


lO 


18 




BPL 


*EE56 


EE3E 


A5 


A5 




LDA 


*A5 


EE40 


FO 


05 




BEQ 


*EE47 


EE42 


A9 


02 




LDA 


#*02 


EE44 


4C 


B2 


ED 


JMP 


*EDB2 


EE47 


20 


AO 


EE 


JSR 


*EEAO 


EE4A 


20 


85 


EE 


JSR 


*EE85 


EE4D 


A9 


40 




LDA 


#*40 


EE4F 


20 


IC 


FE 


JSR 


*FE1C 


EE52 


E6 


A5 




INC 


*A5 


EE54 


DO 


CA 




BNE 


*EE20 


EE56 


A9 


08 




LDA 


#*08 


EE58 


85 


A5 




STA 


*A5 


EE5A 


AD 


00 


DD 


LDA 


*DDOO 


EE5D 


CD 


00 


DD 


CMP 


*DDOO 


EE60 


DO 


F8 




BNE 


*EE5A 


EE62 


OA 






ASL 




EE63 


10 


F5 




BPL 


*EE5A 


EE65 


66 


A4 




ROR 


$A4 


EE67 


AD 


00 


DD 


LDA 


*DDOO 


EE6A 


CD 


OO 


DD 


CMP 


*DDOO 


EE6D 


DO 


F8 




BNE 


*EE67 


EE6F 


OA 






ASL 




EE 70 


30 


F5 




BMI 


:$EE67 


EE72 


C6 


A5 




DEC 


*A5 


EE74 


DO 


E4 




BNE 


*EE5A 


EE76 


20 


AO 


EE 


JSR 


*EEAO 


EE79 


24 


90 




BIT 


*^90 


EE7B 


50 


03 




BVC 


*EE80 


EE7D 


20 


06 


EE 


JSR 


*EE06 


EE80 


A5 


A4 




LDA 


-^A4 


EE82 


58 






CLI 




EE83 


18 






CLC 




EE84 


60 






RTS 






EE85 


AD 


00 


DD 


LDA 


*DDOO 


EE88 


29 


EF 




AND 


#*EF 


EE8A 


8D 


00 


DD 


STA 


*DDOO 


EE8D 


60 






RTS 






EE8E 


AD 


OO 


DD 


LDA 


*DDOO 


EE91 


09 


10 




ORA 


#*10 


EE93 


8D 


00 


DD 


STA 


*DD00 


EE96 


60 






RTS 





check timer 



"EOF" 

set status 



set bit— counter 



status 
no EOF? 



Serial -frequency on 



Serial -frequency off 



EE97 AD 00 DD LDA *DDOO 



Out-put bit "1" 



A-107 



EE9A 29 DF AND #*DF 

EE9C 8D OO DD STA *DDOO 

EE9F 60 RTS 

***************************** Out-put bit "O" 

EEAO AD OO DD LDA $DDOO 

EEA3 09 20 ORA #*20 

EEA5 8D 00 DD STA $:DDOO 

EEA8 60 RTS 

***************************** 
EEA9 AD 00 DD LDA *DDOO 
EEAC CD 00 DD CMP $DDOO 
EEAF DO F8 BNE *EEA9 
EEBl OA ASL 
EEB2 60 RTS 

«^«««««*************«******** One milli-second delay 



EEB3 


8A 




TXA 




EEB4 


A2 


B8 


LDX 


#:$B8 


EEB6 


CA 




DEX 




EEB7 


DO 


FD 


BNE 


$EEB6 


EEB9 


AA 




TAX 




EEBA 


60 




RTS 





^(.^(.*#^(.^(.*^^.^(.^^.*^f***************** RS-232 out-put 



EEBB 


A5 


B4 




LDA 


$B4 


EEBD 


FO 


47 




BEQ 


*EF06 


EEBF 


30 


3F 




BMI 


*EFOO 


EECl 


46 


B6 




LSR 


*B6 


EEC3 


A2 


00 




LDX 


#*00 


EEC5 


90 


01 




BCC 


*EEC8 


EEC7 


CA 






DEX 




EEC8 


8A 






TXA 




EEC9 


45 


6D 




EOR 


$BD 


EECB 


85 


BD 




STA 


$BD 


EECD 


C6 


B4 




DEC 


*B4 


EECF 


FO 


06 




BEQ 


*EED7 


EEDl 


8A 






TXA 




EED2 


29 


04 




AND 


#:*04 


EED4 


85 


B5 




STA 


*B5 


EED6 


60 






RTS 




EED7 


A9 


20 




LDA 


#*20 


EED9 


2C 


94 


02 


BIT 


*0294 


EEDC 


FO 


14 




BEG 


*EEF2 


EEDE 


30 


IC 




BMI 


*EEFC 


EEEO 


76 


14 




BVS 


*EEF6 


EEE2 


A5 


BD 




LDA 


*BD 


EEE4 


DO 


01 




BNE 


^EEE7 


EEE6 


CA 






DEX 




EEE7 


C6 


B4 




DEC 


*B4 


EEE9 


AD 


93 


02 


LDA 


*0293 


EEEC 


10 


E3 




BPL 


*EED1 


EEEE 


C6 


B4 




DEC 


*B4 



A-108 



EEFO DO DF BNE *EED1 

EEF2 E6 B4 INC *B4 

EEF4 DO FO BNE *EEE6 

EEF6 A5 BD LDA *BD 

EEF8 FO ED BEQ *EEE7 

EEFA DO EA BNE *EEE6 

EEFC 70 E9 BVS *EEE7 

EEFE 50 E6 BVC *EEE6 

EFOO E6 B4 INC $B4 

EF02 A2 FF LDX #*FF 

EF04 DO CB BNE *EED1 

EF06 AD 94 02 LDA *0294 

EF09 4A LSR 

EFOA 90 07 BCC $EF13 

EFOC 2C 01 DD BIT *DD01 

EFOF 10 ID BPL *EF2E 

EFll 50 IE BVC *EF31 

EF13 A9 00 LDA #$00 

EF15 85 BD ST A *BD 

EF17 85 B5 STA *B5 

EF19 AE 98 02 LDX *0298 

EFIC 86 B4 STX *B4 

EFIE AC 9D 02 LDY *029D 

EF21 CC 9E 02 CPY *029E 

EF24 FO 13 BEQ *EF39 

EF26 Bl F9 LDA (*F9) ,Y 

EF28 85 B6 STA *B6 

EF2A EE 9D 02 INC *029D 

EF2D 60 RTS 

EF2E A9 40 LDA #*40 DSR (data set ready) missing 

EF30 2C -BYTE *2C 

EF31 A9 10 LDA #*10 CTS (clear to send) missing 

EF33 OD 97 02 ORA *0297 set status 

EF36 8D 97 02 STA *0297 

EF39 A9 01 LDA #*01 

EF3B 8D OD DD STA *DD0D 

EF3E 4D Ai 02 EOR *02A1 

EF41 09 80 ORA #*80 

EF43 8D Al 02 STA *02A1 

EF46 8D OD DD STA *DD0D 

EF49 60 RTS 

***************************** Find # o-f RS-232 data— bits 



control word 



EF4A 


A2 


09 


LDX 


#*09 


EF4C 


A9 


20 


LDA 


#*20 


EF4E 


2C 


93 02 


BIT 


1^0293 


EF51 


FO 


01 


BEQ 


*EF54 


EF53 


CA 




DEX 




EF54 


50 


02 


BVC 


*EF58 


EF56 


CA 




DEX 




EF57 


CA 




DEX 




EF58 


60 




RTS 




EF59 


A6 


A9 


LDX 


*A9 


EF5B 


DO 


33 


BNE 


*EF90 


EF5D 


C6 


A8 


DEC 


*A8 


EF5F 


FO 


36 


BEQ 


*EF97 



X==number o-f data-bits 



A-109 



EF61 


30 


OD 




BMI 


*EF70 


EF63 


A5 


A7 




LDA 


*A7 


EF65 


45 


AB 




EOR 


$AB 


EF67 


85 


AB 




STA 


$AB 


EF69 


46 


A7 




LSR 


*A7 


EF6B 


66 


AA 




ROR 


$AA 


EF6D 


60 






RTB 




EF6E 


C6 


A8 




DEC 


$A8 


EF70 


A5 


A7 




LDA 


*A7 


EF72 


FO 


67 




BEQ 


*EFDB 


EF74 


AD 


93 


02 


LDA 


*0293 


EF77 


OA 






ASL 




EF78 


A9 


01 




LDA 


#*01 


EF7A 


65 


A8 




ADC 


$A8 


EF7C 


DO 


EF 




BNE 


*EF6D 


EF7E 


A9 


90 




LDA 


#*90 


EF80 


8D 


OD 


DD 


STA 


*DDOD 


EF83 


OD 


Al 


02 


ORA 


*02A1 


EF86 


8D 


Al 


02 


STA 


$02 A 1 


EF89 


85 


A9 




STA 


*A9 


EF8B 


A9 


02 




LDA 


#*02 


EF8D 


4C 


3B 


EF 


JMP 


*EF3B 


EF90 


A5 


A7 




LDA 


*A7 


EF92 


DO 


EA 




BNE 


*EF7E 


EF94 


85 


A9 




STA 


$A9 


EF96 


60 






RTS 




EF97 


AC 


9B 


02 


LDY 


*029B 


EF9A 


C8 






I NY 




EF9B 


CC 


9C 


02 


CRY 


*029C 


EF9E 


FO 


2A 




BEQ 


*EFCA 


EFAO 


8C 


9B 


02 


STY 


*029B 


EFA3 


88 






DEY 




EFA4 


A5 


AA 




LDA 


$AA 


EFA6 


AE 


98 


02 


LDX 


*0298 


EFA9 


EO 


09 




CPX 


#*09 


EFAB 


FO 


04 




BEQ 


*EFB1 


EFAD 


4A 






LSR 




EFAE 


E8 






INX 




EFAF 


DO 


F8 




BNE 


*EFA9 


EFBl 


91 


F7 




STA 


(*F7) 


EFB3 


A9 


20 




LDA 


#*20 


EFB5 


2C 


94 


02 


BIT 


#0294 


EFB8 


FO 


B4 




BEQ 


$EF6E 


EFBA 


30 


Bl 




BMI 


*EF6D 


EFBC 


A5 


A7 




LDA 


*A7 


EFBE 


45 


AB 




EDR 


$AB 


EFCO 


FO 


03 




BEQ 


*EFC5 


EFC2 


70 


A9 




BVS 


*EF6D 


EFC4 


2C 






.BYTE *2C 


EFC5 


50 


A6 




BVC 


*EF6D 


EFC7 


A9 


01 




LDA 


#*01 


EFC9 


2C 






-BYTE *2C 


EFCA 


A9 


04 




LDA 


#*04 


EFCC 


2C 






-BYTE *2C 



par i ty-error 

recei ver-buf -f er -full 



A-110 



EFCD 


A9 


80 




LDA 


#*80 


C.rL»r 








.BYTE *2C 


trUU 


A9 


02 




LDA 


#*02 




An 


V / 


\J£. 


UKH 


^0297 


EFD5 


nn 
ou 


0"7 




o 1 H 


^0297 


EFD8 


/in 


/ 1 


tr 


J MP 


$EF7E 




HO 


/\/\ 




LDA 






UU 


Fl 




BNE 


$EFDO 




FO 


EC 




BEQ 


:$EFCD 


tr tl 




9A 




STA 


*9A 


trco 




94 


02 


LDA 


$0294 


CP Co 








LSR 




EFE7 




r>o 




CLrL. 


*rUl^ 


EFE9 


A9 


CY7 




L.UH 




EFEB 




\j 1 




0l 1 


$DD01 


EFEE 


1 ri 






DDI 


*r UUU 


EFFO 


DO 






CrIC 


*r Ul^ 


EFF2 


An 


HI 




L.UH 


$02A1 


EFF5 


■£r7 






HNU 




EFF7 


DO 






DIMC 


*tr r^ 


EFF9 


'?r' 


rii 


T\T\ 


Dl 1 


^DDOl 


EFFC 


7ri 
/ \j 


PD 






*trr V 


EFFE 


AD 


ni 


nn 


1 nA 

1— UH 


^UUUl 


FOOl 


HQ 






UKH 




F003 




'u' X 


UU 


CXA 

o 1 H 


^^DDOl 


F006 






UU 


BIT 


$DD01 




/U 


u/ 




BVS 


*F012 


r UUJd 


30 


F9 




BMI 


*F006 


FOOD 


A9 


40 




LDA 


#*40 


FOOF 


8D 


97 


02 


STA 


*0297 


F012 


18 






CLC 




F013 


60 






RTS 






F014 


20 


28 


FO 


JSR 


*F028 


F017 


AC 


9E 


02 


LDY 


*029E 


FOIA 


C8 






I NY 




FOIB 


CC 


9D 


02 


CPY 


*029D 


FOIE 


FO 


F4 




BEQ 


*F014 


F020 


8C 


9E 


02 


STY 


*029E 


F023 


88 






DEY 




F024 


A5 


9E 




LDA 


*9E 


F026 


91 


F9 




STA 


<*F9) , 


F028 


AD 


Al 


02 


LDA 


*02A1 


F02B 


4A 






LSR 




F02C 


BO 


IE 




BCS 


*F04C 


F02E 


A9 


10 




LDA 


#*10 


F030 


8D 


OE 


DD 


STA 


*DDOE 


F033 


AD 


99 


02 


LDA 


*0299 


F036 


8D 


04 


DD 


STA 


*DD04 


F039 


AD 


9A 


02 


LDA 


:^029A 


F03C 


8D 


05 


DD 


STA 


*DD05 


F03F 


A9 


81 




LDA 


#*81 


F041 


20 


3B 


EF 


JSR 


*EF3B 


F044 


20 


06 


EF 


JSR 


*EF06 



receiver break -command 
frame— error 
set status 



DSR— signal is missing 



Out-put to RS-232 bu-f-fer 



A-111 



F047 


A9 


4 -1 
1 1 




L-Uh 


1 




F049 


oU 


Uc. 




O 1 H 






F04C 


tf\ 

oU 






CJTQ 






F04D 


85 


99 




a 1 H 






F04F 


AD 


94 


02 


LDA 


■^r^'^OA 

*U-t*7*l' 




F052 


4A 






I CD 






F053 


90 


28 




OLrLr 


*I~U/U 




F055 


29 


08 




HNU 






rUD/ 


iro 
rU 






X7C-.UC 


$F07D 




F059 




\>JL 




I— Urn 


#$02 






r>r* 


rii 

tJX 


XJlJ 


DX 1 


$DD01 




r ODc. 


lU 


/vrv 
Hll 




Di 1— 


$F00D 




F060 


r V 






0C1UI 






F062 


AD 


Al 




1 rv/v 
L-UH 






F065 














F066 


BO 


r A 










F068 


AD 


Ul 


r\T\ 


1 HA 
L.UH 


*nnni 




F06B 




r— rv 
rly 






TT^I U 




F06D 


8D 


Ul 


XJIJ 


a 1 H 






F070 


AU 


Ul 


lJU 


L_UH 


-P'UX/'w' X 






oo 


U*fr 






#$04 




F075 


cri 
rU 


CO 




i5cn 

DC.U: 


$F070 




F077 


AV 


VU 




L-UH 






rU/*r 


■1 o 
Id 






l_rl_l-# 






rU/tt 




TO 


tr 


IMP 
J III 


$EF3B 




F07D 


AU 


IS. 1 

HI 


U^ 


1— UH 


■^■yJjL.rn X 




F080 


29 


12 




AND 


#$12 




F082 


FO 


F3 




BEQ 


*F077 




F084 


18 






CLC 






F085 


60 






RTS 






***************************** 


13CL 1 1 r LJIII r\3 jtL'JJL 


F086 


AD 


97 


02 


LDA 


$0297 


st.aiiiLJis 


F089 


AC 


9C 


02 


LDY 


$029C 


buf-fer pointer 


F08C 


CC 


9B 


02 


CPY 


$029B 




F08F 


FO 


OB 




BEQ 


$F09C 


bu-f-fer empty? 


F091 


29 


F7 




AND 


#$F7 




F093 


8D 


97 


02 


STA 


$0297 


clear in stsitus 


F096 


Bl 


F7 




LDA 


<$F7) ,Y 


yeX. DyUB Tr Om DlATTer 


F098 


EE 


9C 


02 


INC 


$029C 


increcnent bui'f'fer pointer 


F09B 


60 






RTS 






F09C 


09 


08 




ORA 


#$08 


biiTTer empty 


F09E 


8D 


97 


02 


STA 


$0297 


set status 


FOAl 


A9 


00 




LDA 


#$00 


trans-fer zero 


F0A3 


60 






RTS 







***************************** Set timer -for I EC time-out 

F0A4 48 PHA 

F0A5 AD Al 02 LDA $02A1 ^:lag set? 

F0A8 FO 11 BEQ $FOBB 

FOAA AD A 1 02 LDA $02 A 1 

FOAD 29 03 AND #$03 

FOAF DO F9 BNE $FOAA 

FOBl A9 10 LDA #$10 

F0B3 8D OD DD STA $DDOD set timer 



F0B6 A9 OO LDA #*00 

FOBS BD Al 02 ST A *02A1 

FOBB 68 PLA 

FOBC 60 RTS 

***************************** 



FOBD 


OD 


49 


2F 


4F 


20 


45 


52 


52 


F0C5 


4F 


52 


20 


A3 










F0C9 


OD 


53 


45 


41 


52 


43 


48 


49 


FODl 


4E 


47 


AO 












F0D4 


46 


4F 


52 


AO 










FODS 


OD 


50 


52 


45 


53 


53 


20 


50 


FOEO 


4C 


41 


59 


20 


4F 


4E 


20 


54 


FOES 


41 


50 


C5 












FOEB 


50 


52 


45 


53 


53 


20 


52 


45 


F0F3 


43 


4F 


52 


44 


20 


26 


20 


50 


FOFB 


4C 


41 


59 


20 


4F 


4E 


20 


54 


F103 


41 


50 


C5 












F106 


OD 


4C 


4F 


41 


44 


49 


4E 


C7 


FlOE 


OD 


53 


41 


56 


49 


4E 


47 


AO 


F116 


OD 


56 


45 


52 


49 


46 


59 


49 


FllE 


4E 


C7 














F120 


OD 


46 


4F 


55 


4E 


44 


AO 





F127 OD 4F 4B 8D 
***************************** 



F12B 


24 


9D 




BIT 


*9D 


F12D 


10 


OD 




BPL 


*F13C 


F12F 


B9 


BD 


FO 


LDA 


*FOBD,Y 


F132 


OS 






PHP 




F133 


29 


7F 




AND 


#*7F 


F135 


20 


D2 


FF 


JSR 


*FFD2 


F13S 


CS 






I NY 




F139 


28 






PLP 




F13A 


10 


F3 




BPL 


*F12F 


F13C 


18 






CLC 




F13D 


60 






RTS 




**************************4 


F13E 


A5 


99 




LDA 


*99 


F140 


DO 


08 




BNE 


*F14A 


Fi42 


A5 


C6 




LDA 


*C6 


F144 


FO 


OF 




BEQ 


*F155 


F146 


78 






SEI 




F147 


4C 


B4 


E5 


J MP 


*E5B4 


F14A 


C9 


02 




CMP 


#*02 


Fi4C 


DO 


18 




BNE 


*F166 


F14E 


84 


97 




STY 


*97 


F150 


20 


86 


FO 


JSR 


*F086 


F153 


A4 


97 




LDY 


*97 


F155 


18 






CLC 




F156 


60 






RTS 





***************************** 
F157 A5 99 LDA *99 



Operating systeni error lines 
I/O error number 

searching 

-For 

press play on tape 

press record 8e play on tape 



loading 

saving 

verifying 

•found 
ok 

Output operators error lines 

direct— mode -flag 

progrom, then skip 
o-f-fset o-f err or -messages inY 

clear bit 7 
out— put 



more letters? 



BETIN 
input-device 

# o-f char- in keyboard bu-f . 
no characters? 

get character -From bu-f-fer 

not RS-232, then BASIN 

routine 

BET from RS-232 



BASIN-input of a character 
device number 



A-113 



F159 


DO 


OB 


BNE 


$F166 


F15B 


A5 


D3 


LDA 


*D3 


F15D 


85 


CA 


STA 


*CA 


F15F 


A5 


D6 


LDA 


$D6 


F161 


85 


C9 


STA 


*C9 


F163 


4C 


32 


E6 JMP 


*E632 


F166 


C9 


03 


CMP 


#*03 


F168 


DO 


09 


BNE 


«fF173 



not keyboard 
cursor position 

set -for keyboard input 

input -From screen 



***************************** Input -From screen 



F16A 


85 


DO 


STA 


*D0 


F16C 


A5 


D5 


LDA 


*D5 


F16E 


85 


C8 


STA 


$C8 


F170 


4C 


32 


E6 JMP 


*E632 


F173 


BO 


38 


BCS 


*FiAD 


F175 


C9 


02 


CMP 


#*02 


F177 


FO 


3F 


BEQ 


*F1B8 



F179 


86 


97 




STX 


*97 


F17B 


20 


99 


Fl 


JSR 


*F199 


F17E 


BO 


16 




BCS 


*F196 


F180 


48 






PHA 




F18i 


20 


99 


Fl 


JSR 


*F199 


F184 


BO 


OD 




BCS 


*F193 


F186 


DO 


05 




BNE 


*F18D 


F188 


A9 


40 




LDA 


#*40 


F18A 


20 


IC 


FE 


JSR 


*FE1C 


F18D 


C6 


A6 




DEC 


$A6 


F18F 


A6 


97 




LDX 


$97 


F191 


68 






PLA 




Fi92 


60 






RTS 




F193 


AA 






TAX 




Fi94 


68 






PLA 




F195 


8A 






TXA 




F196 


A6 


97 




LDX 


*97 


F198 


60 






RTS 





Input -from tape 
save X-register 
get a character -From tape 



get a character -from tape 

last character? 
EOF 

set status 

decrement tape-buf-Fer pntr 
get back X-register 



^^«««««^«4(.^4(.**«************** 



F199 


20 


OD 


F8 


JSR 


*F80D 


F19C 


DO 


OB 




BNE 


*F1A9 


F19E 


20 


41 


F8 


JSR 


*F841 


FlAl 


BO 


11 




BCS 


*:F1B4 


F1A3 


A9 


00 




LDA 


#*00 


F1A5 


85 


A6 




STA 


$A6 


F1A7 


FO 


FO 




BEQ 


*F199 


F1A9 


Bl 


B2 




LDA 


<*B2) ,Y 


FlAB 


18 






CLC 




FIAC 


60 






RTS 




FIAD 


A5 


90 




LDA 


*90 


FIAF 


FO 


04 




BEQ 


*F1B5 


FlBl 


A9 


OD 




LDA 


#*0D 


F1B3 


18 






CLC 




F1B4 


60 






RTS 





Get character -From tape 
increment tape-bu-F-Fer pntr 
still characters in bu-F-Fer 
no, get next block from tap 



zero bu-F-Fer-pointer , get 

character 
read character -From bu-F-Fer 



check status 
ok 

out-put "CR"-code 



A-114 



F1B5 4C 13 EE JMP *EE13 get a byte ^rom lEC-bus 



F1B8 


20 


4E 


Fl 


JSR 


*F14E 


FIBB 


BO 


F7 




BCS 


*F1B4 


FIBD 


C9 


00 




CMP 


#*00 


FIBF 


DO 


F2 




BNE 


*FiB3 


FlCl 


AD 


97 


02 


LDA 


*0297 


F1C4 


29 


60 




AND 


#*60 


F1C6 


DO 


E9 




BNE 


*F1B1 


F1C8 


FO 


EE 




BEQ 


*F1B8 



RS-232 input 
get a byte -from RS-232 

status 
return "CR" 



***************************** 



FICA 


48 






PHA 




FICB 


A5 


9A 




LDA 


*9A 


FICD 


C9 


03 




CMP 


#*03 


FICF 


DO 


04 




BNE 


*F1D5 


FlDl 


68 






PLA 




F1D2 


4C 


16 


E7 


JMP 


*E716 


F1D5 


90 


04 




BCC 


*F1DB 


F1D7 


68 






PLA 




FIDS 


4C 


DD 


ED 


JMP 


*EDDD 


FIDB 


4A 






LSR 




FIDC 


68 






PLA 




FIDD 


85 


9E 




STA 


*9E 


FIDF 


8A 






TXA 




FlEO 


48 






PHA 




FlEl 


98 






TYA 




F1E2 


48 






PHA 




F1E3 


90 


23 




BCC 


*F208 


F1E5 


20 


OD 


F8 


JSR 


*F80D 


F1E8 


DO 


OE 




BNE 


*F1F8 


FlEA 


20 


64 


F8 


JSR 


*F864 


FIED 


BO 


OE 




BCS 


*F1FD 


FIEF 


A9 


02 




LDA 


#*02 


FlFi 


AO 


00 




LDY 


#$00 


F1F3 


91 


B2 




STA 


(*B2) ,Y 


F1F5 


C8 






I NY 




F1F6 


84 


A6 




STY 


*A6 


F1F8 


A5 


9E 




LDA 


*9E 


FIFA 


91 


B2 




STA 


(*B2) ,Y 


FIFC 


18 






CLC 




FIFD 


68 






PLA 




FIFE 


AS 






TAY 




FiFF 


68 






PLA 




F200 


AA 






TAX 




F201 


A5 


9E 




LDA 


*9E 


F203 


90 


02 




BCC 


*F207 


F205 


A9 


00 




LDA 


#*00 


F207 


60 






RTS 





BSOUT-output of a character 

device number for out— put 

screen? 

no 

output character on screen 
out-put a byte on lEC-bus 
save character to be output 

RS-232 output 

increment tape-buffer pntr- 

buffer full? 

write buffer on tape 

control-byte for data-block 

write in buffer 

increment buffer — pointer 

write character in buffer 



******************************* RS-232 out-put 

F208 20 17 FO JSR $F017 write char- in RS232 buffer 

F20B 4C FC Fl JMP *F1FC 



A-115 



F20E 


20 


OF 


F3 


JSR 


*F30F 


F211 


FO 


03 




BEQ 


*F216 


F213 


4C 


01 


F7 


JMP 


*F701 


F216 


20 


IF 


F3 


JSR 


*F31F 


F219 


A5 


BA 




LDA 


$BA 


F21B 


FO 


16 




BEQ 


*F233 


F21D 


C9 


03 




CMP 


#*03 


F21F 


FO 


12 




BEQ 


*F233 


F221 


BO 


14 




BCS 


*F237 


F223 


C9 


02 




CMP 


#*02 


F225 


DO 


03 




BNE 


*F22A 


F227 


4C 


4D 


FO 


JMP 


*F04D 



***************************** 



F22A 


A6 


B9 




LDX 


$B9 


F22C 


EO 


60 




CPX 


#$60 


F22E 


FO 


03 




BEQ 


*F233 


F230 


4C 


OA 


F7 


JMP 


*:F70A 


F233 


85 


99 




STA 


*99 


F235 


18 






CLC 




F236 


60 






RTS 




F237 


AA 






TAX 




F23B 


20 


09 


ED 


JSR 


*ED09 


F23B 


A5 


B9 




LDA 


*B9 


F23D 


10 


06 




BPL 


*F245 


F23F 


20 


CC 


ED 


JSR 


*EDCC 


F242 


4C 


48 


F2 


JMP 


*F248 


F245 


20 


C7 


ED 


JSR 


*EDC7 


F248 


8A 






TXA 




F249 


24 


90 




BIT 


*90 


F24B 


10 


E6 




BPL 


*F233 


F24D 


4C 


07 


F7 


JMP 


*F707 


************************* 


F250 


20 


OF 


F3 


JSR 


*F30F 


F253 


FO 


03 




BEQ 


*F258 


F255 


4C 


01 


F7 


JMP 


*F701 


F258 


20 


IF 


F3 


JSR 


*F31F 


F25B 


A5 


BA 




LDA 


$BA 


F25D 


DO 


03 




BNE 


*F262 


F25F 


4C 


OD 


F7 


JMP 


*F70D 


F262 


C9 


03 




CMP 


#*03 


F264 


FO 


OF 




BEQ 


*F275 


F266 


BO 


11 




BCS 


$F279 


F268 


C9 


02 




CMP 


#4^02 


F26A 


DO 


03 




BNE 


$F26F 


F26C 


4C 


El 


EF 


JMP 


«^EFE1 


**^(.#^|.#*^i.******* *******«.*- 


F26F 


A6 


B9 




LDX 


*B9 


F271 


EO 


60 




CPX 


#*60 


F273 


FO 


EA 




BEQ 


*F25F 


F275 


85 


9A 




STA 


*9A 



CHRIN-set input device 
looks -for logical -file-* 
■found? 

"FILE NOT OPEN" 
sets file parameter 
device number 
O, keyboard 

3, screen 
I EC-bus 
RS-232 

no, then tape 
yes 

Set tape as input device 
secondary address 
zero? 

"NOT INPUT FILE" 

device number -For out-put 



send TALK 
secondary address 

waits -for cycle-signal 

send secondary address -for 

TALK 

status 
ok? 

"DEVICE NOT PRESENT" 

CKOUT set output device 
looks for logical file # 
found? 

"FILE NOT FOUND" 
sets file parameters 
device number 
not zero? 

"ILLEGAL DEVICE NUMBER" 

screen? 

yes 

I EC-bus 
RS~232 

yes 

Set tape as out-put device 
secondary address 
zero? 

tape file for readi ng , error 
set number of output device 



A-116 



F277 18 
F278 60 



CLC 
RTS 



F279 


AA 






TAX 




F27A 


20 


oc 


ED 


JSR 


$EDOC 


F27D 


A5 


B9 




LDA 


$B9 


F27F 


10 


05 




BPL 


*F286 


F2B1 


20 


BE 


ED 


JSR 


:$:EDBE 


F284 


DO 


03 




BNE 


*F289 


F286 


20 


B9 


ED 


JSR 


*EDB9 


F289 


8A 






TXA 




F28A 


24 


90 




BIT 


*90 


F28C 


10 


E7 




BPL 


*F275 


F28E 


4C 


07 


F7 


JMP 


*F707 



Lay out-put on I EC-bus 

send LISTEN 
secondary address 

set back ATN 

send secondary address -for 
LISTEN 

status 
ok? 

"DEVICE NOT PRESENT" 



F291 


20 


14 


F3 


JSR 


*F314 


F294 


FO 


02 




BEQ 


*F298 


F296 


18 






CLC 




F297 


60 






RTS 




F298 


20 


IF 


F3 


JSR 


*F31F 


F29B 


8A 






TXA 




F29C 


48 






PHA 




F29D 


A5 


BA 




LDA 


$BA 


F29F 


FO 


50 




BEQ 


*F2F1 


F2A1 


C9 


03 




CMP 


#$03 


F2A3 


FO 


4C 




BEQ 


*F2F1 


F2A5 


BO 


47 




BCS 


*F2EE 


F2A7 


C9 


02 




CMP 


#*02 


F2A9 


DO 


ID 




BNE 


*F2C8 



CLOSE logical -file # in X 
looks -for logical ■file# in X 

fole not present, then ready 

set -file parameter 



device address 
keyboard? 

screen? 
I EC-bus? 
RS--232? 
tape 



Close RS-232 -file 



F2AB 


68 






PLA 






F2AC 


20 


F2 


F2 


JSR 


*F2F2 


clear -file-entery in table 


F2AF 


20 


83 


F4 


JSR 


*F483 


set back CIAs -for I/O 


F2B2 


20 


27 


FE 


JSR 


*FE27 


set free RS-232 I/O buf-fer 


F2B5 


A5 


F8 




LDA 


*F8 


input bu-f-fer 


F2B7 


FO 


01 




BEG 


$:F2BA 


F2B9 


C8 






I NY 






F2BA 


A5 


FA 




LDA 


*FA 


output bu-f-fer 


F2BC 


FO 


01 




BEQ 


*F2BF 


F2BE 


C8 






I NY 






F2BF 


A9 


00 




LDA 


#*00 




F2C1 


85 


F8 




STA 


*F8 


set bu-f-fer -free 


F2C3 


85 


FA 




STA 


$FA 




F2C5 


4C 


7D 


F4 


JMP 


*F47D 





F2C8 A5 B9 LDA *B9 

F2CA 29 OF AND #*0F 

F2CC FO 23 BEQ *F2F1 

F2CE 20 DO F7 JSR *F7D0 

F2D1 A9 00 LDA #$00 

F2D3 38 SEC 



CLOSE tape -file 
secondary address 

-file -for reading? 

get tape-bu-f -f er start adrs. 



A-117 



F2D4 


20 


DD 


Fl 


JSR 


<tc H T^I^ 
*r lUU 




F2D7 


20 


a't 


CO 

ro 


JoK 


*r 001- 


Mr X 1-6 tlUITTtrr Ul I l.o|Jtr 


F2DA 


90 


04 




BCC 


$F2E0 




F2DC 


68 






PLA 






F2DD 


A9 


00 




LDA 


#$00 




F2DF 


60 






RTS 






F2E0 


A5 


B9 




LDA 


$B9 


secondary address 


F2E2 


C9 


62 




CMP 


#$62 


equal 2 


F2E4 


DO 


OB 




BNE 


*r 1 




F2E6 


A9 


05 










F2E8 


20 


OH 


r / 


ICO 


*r /oH 


Mr xuc; UXUL_K LJi 1 i_cx|Jt=r 


F2EB 


4C 


Fl 




drlr' 






F2EE 


20 


42 


r o 


TOD 






F2F1 


68 






PLA 






F2F2 


AA 






1 Ra 






F2F3 


C6 


98 




DEC 


*vo 


Q B 1 1 SillSri X. IT UIT iJ|Jcfl 1 T X X era 


F2F5 


E4 


98 




CPX 


$98 




F2F7 


FO 


14 




BEQ 




equal zero, x.nen reauy 


F2F9 


A4 


Vd 






4-00 
*Vo 




F2FB 


B9 


59 




LUH 


*rir>^o V 




F2FE 


9D 


ETO 




CXA 

s 1 H 


•fcrt'JRO Y 




F301 




oo 




L-L/H 


*rk'7A'^ V 

^V^OO y T 


r-tnor% -C -i 1 o n;ai^ AfTlcat' at^— 1* ah 1 @ 
L^Ucrl 1 i X X e |J cxr cxiiicr ^ err l. oiu x c 


F304 


orv 


OO 




CTA 

a 1 H 


^Lr^OO f A 




F307 


B9 


6D 


02 


LDA 


$026D,Y 




F30A 


9D 


6D 


02 


STA 


$026D,X 




F30D 


18 






CLC 






F30E 


60 






RTS 






***************************** 


l_OOK.S TOr XuQXC.ax TXXc?Tr XII A 


F30F 


A9 


00 




LDA 


#$00 




F311 


85 


90 




STA 


$90 




F313 


8A 






TXA 






F314 


A6 


98 




LDX 


$98 


number ot open riles 


F316 


CA 






DEX 






F317 


30 


15 




BMI 


$F32E 




F319 


DD 


59 


02 


CMP 


$0259 , X 


looks -for entry in table 


F31C 


DO 


F8 




BNE 


$F316 




F31E 


60 






RTS 






***************************** 


Set -file parameter 


F31F 


BD 


59 


02 


LDA 


$0259, X 




F322 


85 


B8 




STA 


$B8 


logical -file number 


F324 


BD 


63 


02 


LDA 


$0263,X 


F327 


85 


BA 




STA 


$BA 


device address 


F329 


BD 


6D 


02 


LDA 


$026D , X 




F32C 


85 


B9 




STA 


$B9 


seconaar y ^tiur eisTa 


F32E 


60 






RTS 






***************************** 


l_,l_HU.l_ C X OlsBS X / LJ L.I lal II lt=X a 


F32F 


A9 


00 




LDA 


#$00 




F331 


85 


98 




STA 


$98 


number ot open +11 es — u 


F333 


A2 


03 




LDX 


#$03 




F335 


E4 


9A 




CPX 


$9A 


number of out -put device 


F337 


BO 


03 




BCS 


$F33C 


smal 1 er than 3 


F339 


20 


FE 


ED 


JSR 


$EDFE 


send lEC, UNLISTEN 



A-118 



F33C 


E4 


99 


CPX 


$99 


F33E 


BO 


03 


BCS 


*F343 


F340 


20 


EF 


ED JSR 


$EDEF 


F343 


86 


9A 


STX 


*9A 


F345 


A9 


00 


LDA 


#*00 


F347 


85 


99 


STA 


*99 


F349 


60 




RTS 





number of input device 
smaller than 3 
send I EC, UNTALK 
reset out-put to screen 

reset input to keyboard 



F34A 


A6 


B8 




LDX 


$B8 




F34C 


DO 


03 




BNE 


*F351 




F34E 


4C 


OA 


F7 


JMP 


*F70A 




F351 


20 


OF 


F3 


JSR 


*F30F 




F354 


DO 


03 




BNE 


*F359 




F356 


4C 


FE 


F6 


JMP 


*F6FE 




F359 


A6 


98 




LDX 


*98 




F35B 


EO 


OA 




CPX 


#*0A 




F35D 


90 


03 




BCC 


*F362 




F35F 


4C 


FB 


F6 


JMP 


*F6FB 




F362 


E6 


98 




INC 


*98 




F364 


A5 


B8 




LDA 


$B8 




F366 


9D 


59 


02 


STA 


*0259, 


X 


F369 


A5 


B9 




LDA 


*B9 




F36B 


09 


60 




ORA 


tt*60 




F36D 


85 


B9 




STA 


*B9 




F36F 


9D 


6D 


02 


STA 


*026D, 


X 


F372 


A5 


BA 




LDA 


$BA 




F374 


9D 


63 


02 


STA 


*0263, 


X 


F377 


FO 


5A 




BEQ 


*F3D3 




F379 


C9 


03 




CMP 


#*03 




F37B 


FO 


56 




BEQ 


*F3D3 




F37D 


90 


05 




BCC 


*F384 




F37F 


20 


D5 


F3 


JSR 


*F3D5 




F382 


90 


4F 




BCC 


*F3D3 




F384 


C9 


02 




CMP 


#*02 




F386 


DO 


03 




BNE 


*F38B 




F388 


4C 


09 


F4 


JMP 


*F409 




F38B 


20 


DO 


F7 


JSR 


*F7D0 




F38E 


BO 


03 




BCS 


*F393 




F390 


4C 


13 


F7 


JMP 


*F713 




F393 


A5 


B9 




LDA 


*B9 




F395 


29 


OF 




AND 


#*0F 




F397 


DO 


IF 




BNE 


*F3B8 




F399 


20 


17 


F8 


JSR 


*F817 




F39C 


BO 


36 




BCS 


*F3D4 




F39E 


20 


AF 


F5 


JSR 


*F5AF 




F3A1 


A5 


B7 




LDA 


*B7 




F3A3 


FO 


OA 




BEQ 


*F3AF 




F3A5 


20 


EA 


F7 


JSR 


*F7EA 




F3A8 


90 


18 




BCC 


*F3C2 




F3AA 


FO 


28 




BEQ 


*F3D4 




F3AC 


4C 


04 


F7 


JMP 


$F704 




F3A^ 


20 


2C 


F7 


JSR 


*F72C 




F3B2 


FO 


20 




BEQ 


*F3D4 




F3B4 


90 


OC 




BCC 


*F3C2 





□PEN 
■file number 
not zero 

"NOT INPUT FILE" (??) 
looks -for logical -file # 
not found, it can be opened 
"FILE OPEN" 
number of open files 
compare with 10 

"TOO MANY FILES" 
increase number 
logical file number 

secondary address 



device number 

write in the right table 

keyboard? 

screen 

open file on I EC-bus 

tape? 
no 

RS-232 open 

get tape— buffer start-adrs. 

"ILLEGAL DEVICE NUMBER" 
secondary address 

not zero? 

waits for PLAY key 

Dut-put"SEARCHING FOR name" 
length of file name 
no file name, then continue 
searches for desired tape- 
header 

out -put "FILE NOT FOUND" 
search for next tape-header 



A-119 



F3B6 


BO 


F4 




BCS 


*F3AC 






F3B8 


20 


38 


F8 


JSR 


*F838 




waits for RECORD & PLAY key 


F3BB 


BO 


17 




BCS 


*F3D4 






F3BD 


A9 


04 




LDA 


#*04 




control -byte for dataheader 


F3BF 


20 


6A 


F7 


JSR 


*F76A 




write header on tape 


F3C2 


A9 


BF 




LDA 


#*BF 




pointer to tape-buffers end 


F3C4 


A4 


B9 




LDY 


*B9 




secondary address 


F3C6 


CO 


60 




CPY 


#*60 






F3C8 


FO 


07 




BEQ 


*F3D1 




=0, then continue 


F3CA 


AO 


00 




LDY 


#^00 






F3CC 


A9 


02 




LDA 


#*02 




control -byte for data-block 


F3CE 


91 


B2 




STA 


(*B2) , 


Y 


write in tape buffer 


F3D0 


98 






1 YH 








F3D1 


85 


A6 




STA 


$A6 




pointer in tape-buffer 


F3D3 


18 






CLC 








F3D4 


60 






RTS 








***************************** 


□PEN files on I EC-bus 


F3D5 


A5 


B9 




LDA 


*B9 




secondary address 


F3D7 


30 


FA 




BMI 


*F3D3 






F3D9 


A4 


B7 




LDY 


^B7 




length of file name 


F3DB 


FO 


F6 




BEQ 


*F3D3 




=0, then error 


F3DD 


A9 


00 




LDA 


#*00 






F3DF 


85 


90 




STA 


*90 




clear status 


F3E1 


A5 


BA 




LDA 


$BA 




device address 


F3E3 


20 


OC 


ED 


JSR 


*EDOC 




LISTEN 


F3E6 


A5 


B9 




LDA 


*B9 




secondary address 


F3E8 


09 


FO 




ORA 


#*FO 






F3EA 


20 


B9 


ED 


JSR 


*EDB9 




send 


F3ED 


A5 


90 




LDA 


*90 




check status 


F3EF 


10 


05 




BPL 


*F3F6 




ok 


F3F1 


68 






PLA 








F3F2 


68 






PLA 








F3F3 


4C 


07 


F7 


JMP 


*F707 




"DEVICE NOT PRESENT" 


F3F6 


A5 


B7 




LDA 


*B7 




length of file-name 


F3F8 


FO 


OC 




BEQ 


*F406 






F3FA 


AO 


00 




LDY 


#$00 






F3FC 


Bl 


BB 




LDA 


(*BB> , 


Y 


f i le-name 


F3FE 


20 


DD 


ED 


JSR 


$EDDD 




out-put on I EC-bus 


F401 


C8 






I NY 








F402 


C4 


B7 




CPY 


*B7 






F404 


DO 


F6 




BNE 


*F3FC 






F406 


4C 


54 


F6 


JMP 


*F654 




UNLISTEN, return 


***************************** 


RS-232 OPEN 


F409 


20 


83 


F4 


JSR 


*F483 




set CIAs 


F40C 


8C 


97 


02 


STY 


*0297 




clear RS-232 status 


F40F 


C4 


B7 




CPY 


*B7 




length of file— name 


F411 


FO 


OA 




BEQ 


*F41D 






F413 


Bl 


BB 




LDA 


(*BB) , 


Y 


save the first by characters 


F415 


99 


93 


02 


STA 


$0293, 


Y 




F418 


C8 






I NY 








F419 


CO 


04 




CPY 


#*04 






F41B 


DO 


F2 




BNE 


*F40F 






F41D 


20 


4A 


EF 


JSR 


*EF4A 




calculate # of data— bits 



A-120 



F420 


8E 


98 


02 


STX 


$0298 




F423 


AD 


93 


02 


LDA 


$0293 




F426 


29 


OF 




AND 


#*OF 




F428 


FO 


IC 




BEQ 


*F446 




F42A 


OA 






ASL 






F42B 


AA 






TAX 






F42C 


AD 


A6 


02 


LDA 


*02A6 




F42F 


DO 


09 




BNE 


*F43A 




F431 


BC 


CI 


FE 


LDY 


*FEC1 , 


X 


F434 


BD 


CO 


FE 


LDA 


$FECO , 


X 


F437 


4C 


40 


F4 


J MP 


*F440 




F43A 


BC 


EB 


E4 


LDY 


*E4EB , 


X 


F43D 


BD 


EA 


E4 


LDA 


*E4EA , 


X 


F440 


8C 


96 


02 


STY 


*0296 




F443 


8D 


95 


02 


STA 


$0295 




F446 


AD 


95 


02 


LDA 


*0295 




C A AO 


OA 






ASL 








20 


2E 


FF 


JSR 


*FF2E 






AD 


94 


02 


LDA 


$0294 




r *fDU 








LSR 






F451 


90 


09 




BCC 


*F45C 




F453 


AD 


01 


DD 


LDA 


:^DD01 






OA 






ASL 






F457 


BO 


03 




BCS 


*F45C 




F459 


20 


OD 


FO 


JSR 


*FOOD 




r HujL, 


AD 


9B 


02 


LDA 


*029B 




r ^Dr 


8D 


9C 


02 


STA 


*029C 




r *rO^ 


/VT\ 


9E 


02 


LDA 


*029E 




r H-oD 


orv 
oU 


9D 


02 


STA 


*029D 






20 


27 


FE 


JSR 


*FE27 




F46B 


A5 


F8 




LDA 


*F8 




r~ /I 


DO 


05 




BNE 


*F474 




F46F 


88 






DEY 






F470 


84 


F8 




STY 


*F8 




r *f / ^ 


84b 


F7 




STX 


:^F7 




C A~7A 




FA 




LDA 


*FA 




F476 


DO 


05 




BNE 


*F47D 




r *f / o 


00 
OD 






DEY 








84 


FA 




STY 


*FA 




F47B 


86 


F9 




STX 


*F9 




F47D 


38 






SEC 






F47E 


A9 


FO 




LDA 


#*F0 




F480 


4C 


2D 


FE 


JMP 


*FE2D 






F483 


A9 


7F 




LDA 


#*7F 




F485 


8D 


OD 


DD 


STA 


*DD0D 




F48S 


A9 


06 




LDA 


#*06 




F48A 


SD 


03 


DD 


STA 


*DD03 




F48D 


8D 


01 


DD 


STA 


*DD01 




F490 


A9 


04 




LDA 


#*04 




F492 


OD 


00 


DD 


□RA 


*DDOO 




F495 


8D 


00 


DD 


STA 


*DDOO 




F498 


AO 


00 




LDY 


#too 





and save 

control register 

isolate bits -for baud-rate 

2 for table 



baud-rate. High 
baud-rate. Low 

baud-rate. High 
baud-rate. Low 



determine baud-rate code 



set status -for DSR 

set bu-F-fer — pointer for 

RS-232 I/O 

get top of memory 

input buffer used already? 

pointer for RS-232 input 

buffer 

output buffer used already? 

pointer for RS-232 output 
buffer 

set new top of memory 
Set CIAs back to RS-232 



A-121 



F49A aC Al 02 STY *02A1 
F49D 60 RTS 



***************************** 



F49E 


86 


C3 




STX 


*C3 


F4A0 


84 


C4 




STY 


*C4 


F4A2 


6C 


30 


03 


JMP 


(*0330) 


F4A5 


85 


93 




STA 


*93 


F4A7 


A9 


00 




LDA 


#*00 


F4A9 


85 


90 




STA 


*90 


F4AB 


A5 


BA 




LDA 


*BA 


F4AD 


DO 


03 




BNE 


$F4B2 


F4AF 


4C 


13 


F7 


JMP 


*F713 


F4B2 


C9 


03 




CMP 


#*03 


F4B4 


FO 


F9 




BEQ 


*F4AF 


F4B6 


90 


7B 




BCC 


*F533 



***************************** 



F4B8 


A4 


B7 




LDY 


■irD"7 
/ 


F4BA 


DO 


03 




BNE 




F4BC 


4C 


10 


F7 


dnr' 


*C7 1 C\ 

*r /XV 


F4BF 


A6 


B9 




LDX 




F4C1 


20 


AF 


F5 


JSR 




F4C4 


A9 


60 




LUH 




F4C6 


85 


B9 




STA 




F4Ca 


20 


D5 


F3 


JSR 




F4CB 


A5 


BA 




l_uR 




F4CD 


20 


09 


ED 


JSR 


:$ED09 


F4D0 


A5 


B9 




LDA 


$B9 


F4D2 


20 


C7 


ED 


JSR 




F4D5 


20 


13 


EE 


JSR 




F4D8 


85 


AE 




STA 




F4DA 


A5 


90 




L.UH 




F4DC 


n /v 






i 




F4DD 


4A 






LSR 




F4DE 


BO 


50 




BCS 


$F530 


F4E0 


20 


13 


EE 


JSR 


*EE13 


F4E3 


85 


AF 




STA 


*AF 


F4E5 


8A 






TXA 




F4E6 


DO 


08 




BNE 


*F4F0 


F4E8 


A5 


C3 




LDA 


$C3 


F4EA 


85 


AE 




STA 


*AE 


F4EC 


A5 


C4 




LDA 


*C4 


F4EE 


85 


AF 




STA 


*AF 


F4F0 


20 


D2 


F5 


JSR 


*F5D2 


F4F3 


A9 


FD 




LDA 


#*FD 


F4F5 


25 


90 




AND 


$90 


F4F7 


85 


90 




STA 


*90 


F4F9 


20 


El 


FF 


JSR 


*FFE1 


F4FC 


DO 


03 




BNE 


*F501 


F4FE 


4C 


33 


F6 


JMP 


*F633 


F501 


20 


13 


EE 


JSR 


*EE13 


F504 


AA 






TAX 




F505 


A5 


90 




LDA 


*90 


F507 


4A 






LSR 





LOAD routine 
save start address 

MMP *F4A5 LOAD vector 
load/verH^y -flag 

clear status 

device address 

not zero, then continue 

"ILLEGAL DEVICE NUMBER" 

screen? 

yes , error 

smaller 3, then from tape 

I EC LOAD 
length o-f -file-name 
not zero, then ok 
"MISSING FILE NAME" 
secondary address 
"SEARCHING FOR -filename" 
secondary address zero 

open -file on I EC-bus 
device number 
send TALK 

send secondary address 
get byte from lEC-bus 
save as start address low 
status 



time out, then error 
get start-address high 

secondary address not zero? 

no, then LOAD from given 
address 

out-put "LOADING/VERIFYING" 
clear time-out bit 
scan STOP key 

not pressed, then continue 
close file 

get program-byte from bus 
check status 



A-122 



F508 


4A 






LSR 




F509 


BO 


E8 




BCS 


*:F4F3 


F50B 


BA 






TXA 




F50C 


A4 


93 




LDY 


$93 


F50E 


FO 


OC 




BEQ 


*F51C 


F510 


AO 


00 




LDY 


#*00 


F512 


Dl 


AE 




CMP 


(*AE) ,Y 


F514 


FO 


08 




BEQ 


*F51E 


F516 


A9 


10 




LDA 


#*10 


F518 


20 


IC 


FE 


JSR 


*FE1C 


F5iB 


2C 






-BYTE *2C 


F51C 


91 


AE 




STA 


(*AE) ,Y 


F51E 


E6 


AE 




INC 


*AE 


F520 


DO 


02 




BNE 


4?F524 


F522 


E6 


AF 




INC 


*AF 


F524 


24 


90 




BIT 


*90 


F526 


50 


CB 




BVC 


*F4F3 


F52a 


20 


EF 


ED 


JSR 


*EDEF 


F52B 


20 


42 


F6 


JSR 


*F642 


F52E 


90 


79 




BCC 


*F5A9 


F530 


4C 


04 


F7 


JMP 


*F704 



******************************* 



F533 








1 CD 




F534 


BO 


03 








F5^6 


/LP 


1 T 


r / 


T MO 


^F713 


F539 






IT "7 

r / 


TCD 


$F7D0 


F53C 


TjyJ 






Dr*c 




F53E 


4C 


1 -T 

X o 


n / 


u rir 


<tC"71 "T 

*r / 1 o 


r vJ*r J. 


jL\} 


1 / 


CD 

ho 


JSR 


*F817 


F544 


BO 


68 




BCS 


*F5AE 


F546 


20 


AF 


F5 


JSR 


*F5AF 


F549 


A5 


B7 




LDA 


*B7 


F54B 


FO 


09 




BEQ 


*F556 


F54D 


20 


EA 


F7 


JSR 


*F7EA 


F550 


90 


OB 




BCC 


*F55D 


F552 


FO 


5A 




BEQ 


*F5AE 


F554 


BO 


DA 




BCS 


*F530 


F556 


20 


2C 


F7 


JSR 


*F72C 


F559 


FO 


53 




BEQ 


*F5AE 


F55B 


BO 


D3 




BCS 


*F530 


F55D 


A5 


90 




LDA 


^90 


F55F 


29 


10 




AND 


#*10 


F561 


38 






SEC 




F562 


DO 


4A 




BNE 


$F5AE 


F564 


EO 


01 




CPX 


#*01 


F566 


FO 


11 




BEQ 


*F579 


F568 


EO 


03 




CPX 


#*03 


F56A 


DO 


DD 




BNE 


*F549 


F56C 


AO 


01 




LDY 


#*01 


F56E 


Bl 


B2 




LDA 


(*B2) ,Y 


F570 


85 


C3 




STA 


*C3 


F572 


C8 






I NY 




F573 


Bl 


B2 




LDA 


(*B2) ,Y 


F575 


85 


C4 




STA 


*C4 


F577 


BO 


04 




BCS 


*F57D 



error, then interrupt 

check LOAD/VERIFY flag 
=0, then LOAD 

veri-fy, comparison 

unequal , then set status 
set status 

save byte 

increment address 

status 

no EOF yet? 

send UNTALK 

close file 

no error? 

"FILE NOT FOUND" 



device number 
one (tape) , then continue 
RS-232, "ILLEGAL DEVICE #" 
get tape-buffer start- 



waits for PLAY key 

output "SEARCHING FOR name" 
length of file name 
=0, then continue 
searches for desired tape- 
header 



search for next tape-header 



get status 



header — type 1=BASIC program 

(shif table) 
3= machine— program 

(non-shif table) 

start— address low 



start— address high 



A-123 



F579 


A5 


B9 


LDA 


*B9 




F57B 


DO 


EF 


BNE 


*F56C 




F57D 


AO 


03 


LDY 


#*03 




F57F 


Bl 


B2 


LDA 


($B2) , 


Y 


F581 


AO 


01 


LDY 


#$oi 




F583 


Fl 


B2 


SBC 


(*B2) , 


Y 


F585 


AA 




TAX 






F586 


AO 


04 


LDY 


#*04 




F588 


Bl 


B2 


LDA 


(*B2> , 


Y 


F58A 


AO 


02 


LDY 


#*02 




F58C 


Fl 


62 


SBC 


(*B2) , 


Y 


F58E 


A8 




TAY 






F58F 


18 




CLC 






F590 


8A 




TXA 






F591 


65 


C3 


ADC 


*C3 




F593 


85 


AE 


STA 


$AE 




F595 


98 




TYA 






F596 


65 


C4 


ADC 


*C4 




F598 


85 


AF 


STA 


$AF 




F59A 


A5 


C3 


LDA 


*C3 




F59C 


85 


CI 


STA 


*C1 




F59E 


A5 


C4 


LDA 


*C4 




F5A0 


85 


C2 


STA 


*C2 




F5A2 


20 


D2 


F5 JSR 


*F5D2 




F5A5 


20 


4A 


F8 JSR 


*F84A 




F5A8 


24 




. BYTE $^24 




F5A9 


18 




CLC 






F5AA 


A6 


AE 


LDX 


^AE 




F5AC 


A4 


AF 


LDY 


*AF 




F5AE 


60 




RTS 







secondary address 

not zero, then absolute load 

end-address minus 

start address 

program length 

program length + start adrs 
end address 

start-address to *C1/*C2 

output "LOADING/VERIFYING" 
load program from tape 

end address to X/Y 



***************************** Gut-put "SEARCHING" -for name 



F5AF 


A5 


9D 




LDA 


$9D 


check direct-mode 


F5B1 


10 


IE 




BPL 


*F5D1 


no, then skip 


F5B3 


AO 


OC 




LDY 


#$0C 


of -f set for "SEARCHING 


F5B5 


20 


2F 


Fl 


JSR 


*F12F 


out— put message 


F5B8 


A5 


B7 




LDA 


*B7 


length of file name 


F5BA 


FO 


15 




BEQ 


*F5D1 


=0, then ready 


F5BC 


AO 


17 




LDY 


#*17 


offset for "FOR" 


F5BE 


20 


2F 


Fl 


JSR 


*F12F 


out— put message 


F5C1 


A4 


B7 




LDY 


*B7 


length of file name 


F5C3 


FO 


OC 




BEQ 


*F5D1 


=0, then ready 


F5C5 


AO 


00 




LDY 


#*00 




F5C7 


Bl 


BB 




LDA 


(*BB) ,Y 


get file name 


F5C9 


20 


D2 


FF 


JSR 


*FFD2 


and out-put it 


F5CC 


C8 






I NY 






F5CD 


C4 


B7 




CPY 


*B7 




F5CF 


DO 


F6 




BNE 


*F5C7 




F5D1 


60 






RTS 







***************************** 
F5D2 AO 49 LDY #*49 
F5D4 A5 93 LDA *93 
F5D6 FO 02 BEQ *F5DA 
F5D8 AO 59 LDY #*59 



out-put "LOADING/VERIFYING" 
offset for "LOADING" 
check load/verify flag 
load, then output 
offset for "VERIFYING" 



A-124 



F5DA 4C 2B Fl JMP *F12B 



F5DD 


86 


AE 




BTX 


$AE 


F5DF 


84 


AF 




STY 


*AF 


F5E1 


AA 






TAX 




F5E2 


B5 


00 




LDA 


*oo,x 


F5E4 


85 


CI 




STA 


*C1 


F5E6 


B5 


01 




LDA 


*01,X 


F5E8 


85 


C2 




STA 


*C2 


F5EA 


6C 


32 


03 


JMP 




F5ED 


A5 


BA 




LDA 


$BA 


F5EF 


DO 


03 




BNE 


*F5F4 


F5F1 


4C 


13 


F7 


JMP 


*F713 


F5F4 


C9 


03 




CMP 


#*03 


F5F6 


FO 


F9 




BEO 


*F5F1 


F5F8 


90 


5F 




BCC 


*F659 




F5FA 


A9 


61 




LDA 


#$61 


F5FC 


85 


B9 




STA 


*B9 


F5FE 


A4 


B7 




LDY 


*B7 


F600 


DO 


03 




BNE 


*F605 


F602 


4C 


10 


F7 


JMP 


*F710 


F605 


20 


D5 


F3 


JSR 


*F3D5 


F608 


20 


8F 


F6 


JSR 


*F68F 


F60B 


A5 


BA 




LDA 


*BA 


F60D 


20 


OC 


ED 


JSR 


*EDOC 


F610 


A5 


B9 




LDA 


-*B9 


F6i2 


20 


B9 


ED 


JSR 


*EDB9 


F615 


AO 


00 




LDY 


#*00 


F617 


20 


8E 


FB 


JSR 


$FB8E 


FtolA 


A5 


AC 




LDA 


*AC 


F61C 


20 


DD 


ED 


JSR 


*EDDD 


F6iF 


A5 


AD 




LDA 


*AD^ 


F621 


20 


DD 


ED 


JSR 


*EDDD 


F624 


20 


Dl 


FC 


JSR 


*FCD1 


F627 


BO 


16 




BCS 


$F63F 


F629 


Bl 


AC 




LDA 


<*AC) ,Y 


F62B 


20 


DD 


ED 


JSR 


*EDDD 


F62E 


20 


El 


FF 


JSR 


:^FFE1 


F63i 


DO 


07 




BNE 


*F63A 


F633 


20 


42 


F6 


JSR 


*F642 


F636 


A9 


00 




LDA 


#*00 


F638 


38 






SEC 




F639 


60 






RTS 




F63A 


20 


DB 


FC 


JSR 


:*FCDB 


F63D 


DO 


E5 




BNE 


*F624 


F63F 


20 


FE 


ED 


JSR 


*EDFE 


F642 


24 


B9 




BIT 


*B9 


F644 


30 


11 




BMI 


*F657 


F646 


A5 


BA 




LDA 


$BA 


F648 


20 


OC 


ED 


JSR 


*EDOC 


F64B 


A5 


B9 




LDA 


*B9 



out-put message 

SAVE routine 
end address low 
end address high 

start address low 

start address high 

SAVE- vector, JMP *E5ED ^ 

device address 

"ILLEGAL DEVICE NUMBER" 

screen, error 
tape 

SAVE on I EC-bus 
secondary address 1 
set 

length o-f -file name 
not zero, then ok 
missing -file name 
file name on I EC— bus 
out-put "SAVING" 
device address 
send LISTEN 

send secondary address 
for LISTEN 

start address to *AC/*AD 

start address low 

send 

and send 
high 

end-address reached yet? 
yes, then ready 
program bytes 
out-put to I EC-bus 
scan STOP key 

not pressed, then continue 
close lEC-bus channel 

set flag for "BREAK" output 

increment current address 

send UNLISTEN 



device address 
send LISTEN 
secondary address 



A-125 



F64D 


29 


EF 




AND 


#$EF 


F64F 


09 


EO 




ORA 


#$E0 


F651 


20 


B9 


ED 


JSR 


$EDB9 


F654 


20 


FE 


ED 


JSR 


*EDFE 


F657 


18 






CLC 




F658 


60 






RTS 




F659 


4A 






LSR 




F65A 


60 


03 




BCS 


*F65F 


F65C 


4C 


13 


F7 


JMP 


*F713 


F65F 


20 


DO 


F7 


JSR 


$F7D0 


F662 


90 


8D 




BCC 


*F5F1 


F664 


20 


38 


F8 


JSR 


$F838 


F667 


BO 


25 




BCS 


$F68E 


F669 


20 


8F 


F6 


JSR 


*F68F 


F66C 


A2 


03 




LDX 


#*03 


F66E 


A5 


B9 




LDA 


*B9 


F670 


29 


01 




AND 


#*oi 


F672 


DO 


02 




BNE 


*F676 


F674 


A2 


01 




LDX 


#$=01 


F676 


8A 






TXA 




F677 


20 


6A 


F7 


JSR 


*F76A 


F67A 


BO 


12 




BCS 


*F68E 


F67C 


20 


67 


F8 


JSR 


*F867 


F67F 


BO 


OD 




BCS 


$F68E 


F681 


A5 


B9 




LDA 


$B9 


FdiB3 


29 


02 




AND 


#*02 




FO 


06 




BEQ 


$F68D 


F687 


A9 


05 




LDA 


»*05 


F689 


20 


6A 


F7 


JSR 


*F76A 


E68C 


24 






.BYTE *24 


F6BD 


18 






CLC 




F68E 


60 






RTS 




************************* 


F68F 


A5 


9D 




LDA 


*9D 


F691 


10 


FB 




BPL 


*F68E 


F693 


AO 


51 




LDY 


#*51 


F695 


20 


2F 


Fl 


JSR 


*F12F 


F698 


4C 


CI 


F5 


JMP 


*F5C1 


************************"* 


F69B 


A2 


00 




LDX 


#*00 


F69D 


E6 


A2 




INC 


*A2 


F69F 


DO 


06 




BNE 


*F6A7 


F6A1 


E6 


Al 




INC 


*A1 


F6A3 


DO 


02 




BNE 


*F6A7 


F6A5 


E6 


AO 




INC 


*A0 


F6A7 


38 






SEC 




F6A8 


A5 


A2 




LDA 


*A2 


F6AA 


E9 


01 




SBC 


#$01 


F6AC 


A5 


Al 




LDA 


$A1 


F6AE 


E9 


lA 




SBC 


#$1A 


F6B0 


A5 


AO 




LDA 


*A0 


F6B2 


E9 


4F 




SBC 


#*4F 


F6B4 


90 


06 




BCC 


*F6BC 



output of secondary address 
send UNLISTEN 



device number / 2 
tape 

RS-232, "ILLEGAL DEVICE #" 
get tape bu-ffer start-adrs- 

waits for RECORD St PLAY key 

out-put "SAVING name" 
header-tyep 3 machi ne-prgm- 
secondary address 
bit O is set (1 or 3) 
yes, then machine program 
header type 1=BASIC program 

write header on tape 
jump-out at stop-key 
write program on tape 
jump-out at stop-key 
secondary address 
bit 1 is set (2 or 3) 
no, then ready 
EOT, control byte 
write block on tape 



Out-put "SAVING" 
direct mode? 
no, then ready 
offset for "SAVING" 
out— put message 
out-put file name 

VDTIM increase time 



increase time 



compare with value for24 Hr 



smaller, then ok 



A-126 



F6B6 


86 


AO 




STX 


*AU 


F6B8 


86 


Ai 




STX 


*A1 


F6BA 


86 


A2 




STX 


*A2 


F6BC 


AD 


01 


DC 


LDA 


*DC01 


F6BF 


CD 


01 


DC 


CMP 


*DC01 




DO 


F8 




BNE 


*F6BC 


r oL,*f 


AA 






TAX 




r oLrD 


30 


13 




BMI 


*F6DA 


r- / r^-T 

roL,/ 


A2 


BD 




LDX 


#$BD 


F6C9 


8E 


00 


DC 


STX 


*DCOO 


F6CC 


AE 


01 


DC 


LDX 


*DC01 


F6CF 


EC 


01 


DC 


CPX 


*DC01 


F6D2 


DO 


F8 




BNE 


*F6CC 


F6D4 


8D 


OO 


DC 


STA 


*DCOO 


I— / T\-T 

rou/ 


E8 






INX 




F6D8 


DO 


02 




BNE 


*F6DC 


F6DA 


85 


91 




STA 


*91 


F6DC 


60 






RTS 





set time on zero 



check stop-key 



■flag -for stop-key 



Get time 

F6DD 78 SEI 
F6DE A5 A2 LDA *A2 
F6E0 A6 Al LDX *A1 
F6E2 A4 AO LDY *A0 



****************#**#^(.******** Set time 



F6E4 


78 




SEI 




F6E5 


85 


A2 


STA 


*A2 


F6E7 


86 


Al 


STX 


*A1 


F6E9 


84 


AO 


STY 


*A0 


F6EB 


58 




CLI 




F6EC 


60 




RTS 





F6ED 


A5 


91 


LDA *91 


F6EF 


C9 


7F 


CMP #*7F 


F6F1 


DO 


07 


BNE $F6FA 


F6F3 


08 




PHP 


F6F4 


20 


CC 


FF JSR *FFCC 


F6F7 


85 


C6 


STA *C6 


F6F9 


28 




PLP 


F6FA 


60 




RTS 




F6FB 


A9 


01 


LDA #*01 


F6FD 


2C 




.BYTE *2C 


F6FE 


A9 


02 


LDA #*02 


F700 


2C 




-BYTE *2C 


F701 


A9 


03 


LDA #*03 


5703 


2C 




-BYTE *2C 


F704 


A9 


04 


LDA #$04 


5706 


2C 




.BYTE *2C 


5707 


A9 


05 


LDA #*05 


5709 


2C 




.BYTE *2C 


570A 


A9 


06 


LDA #*06 


F70C 


2C 




-BYTE $2C 



Scan STOP 
■flag 
check 



key 

on code for stop 



CLRCH 



Out-put operating systems 

messages 



A-127 



F70D 


A9 


07 




LDA 


#*07 


F70F 


2C 






.BYTE *2C 


F710 


A9 


08 




LDA 


#*08 


5712 


2C 






.BYTE *2C 


5713 


A9 


09 




LDA 


#*09 


F715 


48 






PHA 




F716 


20 


CC 


FF 


JSR 


*FFCC 


F719 


AO 


OO 




LDY 


#$^00 


F71B 


24 


9D 




BIT 


$9D 


F71D 


50 


OA 




BVC 


$F729 


F71F 


20 


2F 


Fl 






F722 


68 






PLA 




F723 


48 






PHA 




F724 


09 


30 




ORA 


#*30 


F726 


20 


D2 


FF 


JSR 


*FFD2 


F729 


68 






PLA 




F72A 


38 






SEC 




F72B 


60 






RTS 





F72C 


A5 


93 




i T\/\ 




F72E 


48 










F72F 


20 


41 


F8 


JSR 


$F841 


F732 


68 






PLA 




F733 


85 


93 




STA 


$93 


F735 


BO 


32 




BCS 


*F769 


F737 


AO 


00 




LDY 


#$00 


F739 


Bl 


B2 




LDA 


($B2) ,Y 


F73B 


C9 


05 




CMP 


#$05 


F73D 


FO 


2A 




BEQ 


*F769 


F73F 


C9 


01 




CMP 


#*01 


F741 


FO 


08 




BEQ 


*F74B 


F743 


C9 


03 




CMP 


#$03 


F745 


FO 


04 




BEQ 


*F74B 


F747 


C9 


04 




CMP 


#*04 


F749 


DO 


El 




BNE 


*F72C 


F74B 


AA 






TAX 




F74C 


24 


9D 




BIT 


$9D 


F74E 


10 


17 




BPL 


$F767 


F750 


AO 


63 




LDY 


#$63 


F752 


20 


2F 


Fl 


JSR 


$F12F 


F755 


AO 


05 




LDY 


#$05 


F757 


Bl 


B2 




LDA 


($B2> ,Y 


F759 


20 


D2 


FF 


JSR 


$FFD2 


F75C 


C8 






I NY 




F75D 


CO 


15 




CPY 


#$15 


F75F 


DO 


F6 




BNE 


$F757 


F761 


A5 


Al 




LDA 


$A1 


F763 


20 


EO 


E4 


JSR 


$E4E0 


F766 


EA 






NOP 




F767 


18 






CLC 




F768 


88 






DEY 




F769 


60 






RTS 





save error — number 
CLRCH 

check direct-mode -Flag 

out-put "I/O ERROR #" 

get error number 
to ASCII 
and out-put 



Read program header o+-f tape 
save load/ verify flag 

read block o-F-f tape 

get back load/verify flag 
error, then end 

check header type 
EOT? 

BASIC-program? 

machine program? 

data header? 
no 

direct-mode? 

no, then continue 

out-put "FOUND" 
offset of file name 

out -put file name 



middle time byte to accum. 
waits for Commodore-key or 
time-1 oop 

at error, C=l 



***************************** Generate header and write to 



A-128 



F76A 


85 


9E 




STA 


*9E 




F76C 


20 


DO 


F7 


JSR 


*F7D0 




F76F 


90 


5E 




BCC 


*F7CF 




F771 


A5 


C2 




LDA 


*C2 




F773 


48 






PHA 






F774 


A5 


CI 




LDA 


*C1 




F776 


48 






PHA 






F777 


A5 


AF 




LDA 


*AF 




F779 


48 






PHA 






F77A 


A5 


AE 




LDA 


*AE 




F77C 


48 






PHA 






F77D 


AO 


BF 




LDY 


#*BF 




F77F 


A9 


20 




LDA 


#*20 




F781 


91 


B2 




STA 


(*B2) , 


,Y 


F783 


88 






DEY 






F7S4 


DO 


FB 




BNE 


*F781 




F786 


A5 


9E 




LDA 


*9E 




F788 


91 


B2 




STA 


(*B2) , 


Y 


F78A 


C8 






I NY 






F78B 


A5 


CI 




LDA 


*C1 




F78D 


91 


B2 




STA 


(*B2) , 


Y 


F78F 


C8 






I NY 






F790 


A5 


C2 




LDA 


*C2 




F792 


91 


B2 




STA 


(*B2) , 


Y 


F794 


C8 






I NY 






F795 


A5 


AE 




LDA 


*AE 




F797 


91 


B2 




STA 


(*B2) , 


Y 


F799 


C8 






I NY 






F79A 


A5 


AF 




LDA 


*AF 




F79C 


91 


B2 




STA 


(*B2) , 


Y 


F79E 


C8 






I NY 






F79F 


84 


9F 




STY 


*9F 




F7A1 


AO 


00 




LDY 


#*00 




F7A3 


84 


9E 




STY 


-*:9E 




F7A5 


A4 


9E 




LDY 


*9E 




F7A7 


C4 


B7 




CPY 


*B7 




F7A9 


FO 


OC 




BEQ 


*F7B7 




F7AB 


Bl 


BB 




LDA 


<*BB) , 


Y 


F7AD 


A4 


9F 




LDY 


*9F 




F7AF 


91 


B2 




STA 


(*B2) , 


Y 


F7B1 


E6 


9E 




INC 


*9E 




F7B3 


E6 


9F 




INC 


*9F 




F7B5 


DO 


EE 




BNE 


*F7A5 




F7B7 


20 


D7 


F7 


JSR 


*F7D7 




F7BA 


A9 


69 




LDA 


#*69 




F7BC 


85 


AB 




STA 


*AB 




F7BE 


20 


6B 


F8 


JSR 


$F86B 




F7C1 


A8 






TAY 






F7C2 


68 






PLA 






F7C3 


85 


AE 




STA 


*AE 




F7C5 


68 






PLA 






F7C6 


85 


AF 




STA 


*hF 




F7C8 


68 






PLA 






F7C9 


85 


CI 




STA 


*C1 




F7CB 


68 






PLA 







header-type 

get tape-bu-f -f er address 

save start-address 
and 

end— address 

buffer-length - 1 
clear tape-buffer 

header-type 
start-address 

end-address 



counter for filename-length 

compare with length 

all letters, then continue 

get filename 

write in header 

start and end-address on 

tape buffer 
header checksum block = *-69 
write block on tape 

get back end-address 
and 

start-address 



F7CC 


85 


C2 




STA 


*C2 




F7CE 


98 






TYA 






F7CF 


60 






RTS 








Get tape-bu-ffer start-addr- 


F7DO 


A6 


B2 




LDX 


*B2 




F7D2 


A4 


B3 




LDY 


*B3 




F7D4 


CO 


02 




CPY 


#*02 


address smaller *200? 


F7D6 


60 






RTS 










F7D7 


20 


DO 


F7 


JSR 


*F7D0 


get tape— buf-fer address 


F7DA 


8A 






TXA 






F7DB 


85 


CI 




STA 


*C1 


ei-l- a r-t— address = start tape— 


F7DD 


18 






CLC 




bu-f -f er 


F7DE 


69 


CO 




ADC 


»*C0 




F7E0 


85 


AE 




STA 


*AE 




F7E2 


98 






TYA 




end-address = start-address 


F7E3 


85 


C2 




STA 


*C2 


+ length (192) 


F7E5 


69 


00 




ADC 


#*00 




F7E7 


85 


AF 




STA 


*AF 




F7E9 


60 






RTS 






***************************** 


tape header search "for name 


F7EA 


20 


2C 


F7 


JSR 


*F72C 


search next tape header 


F7ED 


BO 


ID 




BCS 


*F80C 


EOT, then ready 


F7EF 


AO 


05 




LDY 


#*05 


■filename O'f'fset in header 


F7F1 


84 


9F 




STY 


*9F 




F7F3 


AO 


00 




LDY 


#*00 




F7F5 


84 


9E 




STY 


*9E 


counter -for length D"f name 


F7F7 


C4 


B7 




CPY 


*B7 


compare to searched name 


F7F9 


FO 


10 




BEQ 


*F80B 


equal , then -found 


F7FB 


Bl 


BB 




LDA 


(*BB) ,Y 


1 0f''f*cir~ (~>-F -f 1 1 i^rtj^m^ 


F7FD 


A4 


9F 




LDY 


$9F 




F7FF 


Dl 


B2 




CMP 


(*B2) ,Y 


compare header -filename 


F801 


DO 


E7 




BNE 


:$F7EA 


not equal, check next header 


F803 


E6 


9E 




INC 


*9E 




F805 


E6 


9F 




INC 


*9F 


increment counter 


FB07 


A4 


9E 




LDY 


*9E 




F809 


DO 


EC 




BNE 


*F7F7 


compare -further letters 


F80B 


18 






CLC 






F80C 


60 






RTS 






***************************** 


Increase tape— bu-f "fer poi liter 


F80D 


20 


DO 


F7 


JSR 


*F7D0 


get tape-bu+fer address 


F810 


E6 


A6 




INC 


*A6 


increment pointer 


F812 


A4 


A6 




LDY 


$A6 




F814 


CO 


CO 




CPY 


#*C0 


compare to max- value (192) 


F816 


60 






RTS 






***************************** 


Waits -for Tape— key 


F817 


20 


2E 


F8 


JSR 


*FB2E 


scans tape-keys 


F81A 


FO 


lA 




BEQ 


*F836 


pressed, then ready 


F81C 


AO 


IB 




LDY 


#*1B 


o-f-fset -for "PRESS PLAY ON 


F81E 


20 


2F 


Fl 


JSR 


*F12F 


output TAPE" 



A-i30 



F821 


20 


DO 


F8 


JSR 


*F8D0 


F824 


20 


f .LT. 


no 


uarc 




F827 


DO 


F8 




BNE 


*F821 


F829 


AO 


6A 




LDY 


#$6A 


F82B 


4C 


2F 


Fl 


JMP 


*F12F 




F82E 


A9 


10 




LDA 


#*10 


F830 


24 


01 




BIT 


*01 


F832 


DO 


02 




BNE 


*F836 


F834 


24 


01 




BIT 


*01 


F836 


18 






CLC 




F837 


60 






RTS 





scans Tape— key 

offset for "OK" 
out-put 

Check if tape key pressed 
check bit 4 



5, the Z=l, otherwis Z=0 



FB38 20 2E F8 JSR *F82E 

F83B FO F9 BEQ *F836 

F83D AO 2E LDY #*2E 

F83F DO DD BNE *FB1E 

F841 A9 00 LDA #*00 

F843 85 90 STA $90 

F845 85 93 STA *93 

F847 20 D7 F7 JSR *F7D7 



F84A 


20 


17 


F8 


JSR 


*F817 


F84D 


BO 


IF 




BCS 


*F86E 


F84F 


78 






SEI 




F850 


A9 


00 




LDA 


#*00 


F852 


85 


AA 




STA 


$AA 


F854 


85 


B4 




STA 


*B4 


F856 


85 


BO 




STA 


*B0 


F85B 


85 


9E 




STA 


*9E 


FB5A 


85 


9F 




STA 


*9F 


F85C 


85 


9C 




STA 


*9C 


F85E 


A9 


90 




LDA 


#*90 


Fe60 


A2 


OE 




LDX 


#*0E 


F862 


DO 


11 




BNE 


*F875 




F864 


20 


D7 


F7 


JSR 


*F7D7 


F867 


A9 


14 




LDA 


#^14 


F869 


85 


AB 




STA 


*AB 




Fe6B 


20 


38 


F8 


JSR 


*FS38 


F86E 


BO 


6C 




BCS 


*F8DC 


F870 


78 






SEI 




F871 


A9 


82 




LDA 


#$82 


F873 


A2 


08 




LDX 


#$08 


F875 


AO 


7F 




LDY 


#*7F 


F877 


8C 


OD 


DC 


STY 


$DC0D 


F87A 


8D 


OD 


DC 


STA 


*DCOD 



Maits for tape-key for writin 
scan tape— key 
pressed, then ready 
offset for "PRESS PLAY & 
re-check /RECORD ON TAPE" 

Read block off tape 

clear status 

and verify— flag 

get tape-buffer address 

LOAD program from tape 
waits for PLAY-key 



clear work -memory for IRQ- 
routine 



constant for timer high 
number of IRQ vector, *F92C 



Write tape buffer on tape 
get tape-buffer address 
check-sum 

for data block of header $14 

Write block or prgm. on t^pe 
waits for REC- & PLAY 



constant for timer high 
number of IRQ-vector $FC6A 



A-131 



F87D 


AD 


OE 


DC 


LDA 


*DCOE 




FS80 


09 


19 




ORA 


#*19 




F882 


8D 


OF 


DC 


STA 


*DCOF 




F885 


29 


91 




AND 


#*91 




F887 


8D 


A2 


02 


STA 


*02A2 


timer A control— Flag 


F88A 


20 


A4 


FO 


JSR 


^?FOA4 




F88D 


AD 


11 


DO 


LDA 


*D011 




F890 


29 


EF 




AND 


#*EF 


key screen dark 


F892 


8D 


11 


DO 


STA 


*D011 




F895 


AD 


14 


03 


LDA 


*0314 


IRQ-vector 


F898 


8D 


9F 


02 


STA 


*029F 




F89B 


AD 


15 


03 


LDA 


*0315 


save to «:29F/*2A0 


F89E 


8D 


AO 


02 


STA 


*02A0 




F8A1 


20 


BD 


FC 


JSR 


*FCBD 


set IRQ -For tape I/O 


F8A4 


A9 


02 




LDA 


#*02 




F8A6 


85 


BE 




STA 


$BE 


read number o-F blocks 


F8A8 


20 


97 


FB 


JSR 


$FB97 


set bit counter -For serial 


F8AB 


A5 


01 




LDA 


$01 


out-put 


F8AD 


29 


IF 




AND 


»:*1F 


switch on tape drive 


F8AF 


85 


01 




STA 


*01 




F8B1 


85 


CO 




STA 


*C0 


set -Flag tape-drive 


F8B3 


A2 


FF 




LDX 


#*FF 




F8B5 


AO 


FF 




LDY 


#*FF 




F8B7 


88 






DEY 






F8B8 


DO 


FD 




BNE 


*F8B7 


delay-loop -For tape high- 


F8BA 


CA 






DEX 




run time 


F8BB 


DO 


F8 




BNE 


*F8B5 




F8BD 


58 






CLI 




set interrupt -For tape I/O 



■Free 



***************************** Wait ^or I/O end 



F8BE 


AD 


AO 


02 


LDA 


*02A0 


IRQ vector back standart 


F8C1 


CD 


15 


03 


CMP 


*0315 




F8C4 


18 






CLC 






F8C5 


FO 


15 




BEQ 


*F8DC 


yeS| then ready 


F8C7 


20 


DO 


F8 


JSR 


*F8D0 


check on stop— key 


F8CA 


20 


BC 


F6 


JSR 


*F6BC 


set -Flag when stop-key 1 


F8CD 


4C 


BE 


FB 


JMP 


*F8BE 


continue waiting 


***************************** 


Scans stop-key 


F8D0 


20 


El 


FF 


JSR 


*FFE1 


scan stop-key 


F8D3 


18 






CLC 






F8D4 


DO 


OB 




BNE 


*F8E1 


no , then return 


F8D6 


20 


93 


FC 


JSR 


*FC93 


tape-drive o-Ff , restore 


F8D9 


38 






SEC 




symbol -For interrupt 


F8DA 


68 






PLA 






F8DB 


68 






PLA 




clear return address 


F8DC 


A9 


00 




LDA 


#*00 




FSDE 


8D 


AO 


02 


STA 


*02A0 


symbol -For normal IRQ 


F8E1 


60 






RTS 






***************************** 


Prepare -For tape reading 


F8E2 


86 


Bl 




STX 


*B1 


F8E4 


A5 


BO 




LDA 


*B0 




F8E6 


OA 






ASL 






FaE7 


OA 






ASL 







A-132 



F8E8 


18 






CLC 




F8E9 


65 


BO 




ADC 


*B0 


F8EB 


18 






CLC 




F8EC 


65 


Bl 




ADC 


*B1 


F8EE 


85 


Bl 




STA 


$B1 


F8F0 


A9 


00 




LDA 


#*00 


F8F2 


24 


BO 




BIT 


$B0 


F8F4 


30 


01 




BMI 


*F8F7 


F8F6 


2A 






ROL 




F8F7 


06 


Bl 




ASL 


$B1 


F8F9 


2A 






ROL 




F8FA 


06 


Bl 




ASL 


$B1 


F8FC 


2A 






ROL 




F8FD 


AA 






TAX 




F8FE 


AD 


06 


DC 


LDA 


*DC06 


F901 


C9 


16 




CMP 


#$16 


F903 


90 


F9 




BCC 


*F8FE 


F905 


65 


Bl 




ADC 


$B1 


F907 


8D 


04 


DC 


STA 


*DC04 


F90A 


8A 






TXA 




F90B 


6D 


07 


DC 


ADC 


*DC07 


F90E 


8D 


05 


DC 


STA 


*DC05 


F911 


AD 


A2 


02 


LDA 


*02A2 


F914 


8D 


OE 


DC 


STA 


*DCOE 


F917 


8D 


A4 


02 


STA 


*02A4 


F91A 


AD 


OD 


DC 


LDA 


*DCOD 


F91D 


29 


10 




AND 


#*10 


F91F 


FO 


09 




BEQ 


*F92A 


F921 


A9 


F9 




LDA 


#*F9 


F923 


48 






PHA 




F924 


A9 


2A 




LDA 


#:^2A 


F926 


48 






PHA 




F927 


4C 


43 


FF 


JMP 


*FF43 


F92A 


58 






CLI 




F92B 


60 






RTS 





read input from tape 
isolate bit 



return address on stack 



to interrupt 



F92C 


AE 


07 


DC 


LDX 


*DC07 


F92F 


AO 


FF 




LDY 


#*FF 


F931 


98 






TYA 




F932 


ED 


06 


DC 


SBC 


:*DC06 


F935 


EC 


07 


DC 


CPX 


*DC07 


F938 


DO 


F2 




BNE 


$F92C 


F93A 


86 


Bl 




STX 


*B1 


F93C 


AA 






TAX 




F93D 


8C 


06 


DC 


STY 


*DC06 


F940 


8C 


07 


DC 


STY 


*DC07 


F943 


A9 


19 




LDA 


»*19 


F945 


8D 


OF 


DC 


STA 


*DCOF 


F948 


AD 


OD 


DC 


LDA 


*DCOD 


F94B 


8D 


A3 


02 


STA 


*02A3 


F94E 


98 






TYA 




F94F 


E5 


Bl 




SBC 


$B1 


F951 


86 


Bl 




STX 


*B1 


F953 


4A 






LSR 





Tape read interrupt-routine 
timer high 



input -from tape 



i 



A-133 



F954 


66 


Bl 


KUK 




F956 


4A 




LSR 




F957 


66 


Bl 


ROR 


$B1 


F959 


A5 


BO 


LDA 


$B0 


F95B 


18 




CLC 




F95C 


69 


3C 


ADC 


#:$:3C 


F95E 


C5 


Bl 


CMP 


^Bl 


F960 


BO 


4A 


BCS 


$F9AC 


F962 


A6 


9C 


LDX 


4f9C 


F964 


FO 


03 


BEQ 




F966 


4C 


60 


FA JMP 


$FA60 


F969 


A6 


A3 


LDX 




F96B 


30 


IB 


BMI 


*r"tfo 


F96D 


A2 


00 


LDX 


#^00 


F96F 


69 


30 


ADC 


#$30 


F971 


65 


BO 


ADC 


$B0 


F973 


C5 


Bl 


CMP 


$B1 


F975 


BO 


IC 


BCS 




F977 


E8 




I NX 




F97a 


69 






#$26 


F97A 


65 


BO 


ADC 


$B0 


F97C 


C5 


Bl 


CMP 


$B1 


F97E 


BO 


17 


BCS 


$F997 



F980 


69 


or* 






#$2C 


F982 


65 


BO 




HL/U 




F984 


C5 


Bl 




r*MD 
CMP 




F986 


90 


03 








F98a 


4C 


10 


FA 


JMP 




F98B 


A5 


B4 




LDA 


$B4 


F98D 


FO 


ID 








F98F 


85 


AS 




STA 


$A8 


F991 


DO 


19 




BNE 


*F9AC 


F993 


E6 


A9 




INC 


$A9 


F995 


BO 


02 




BCS 


$F999 


F997 


C6 


A9 




DEC 


$A9 


F999 


38 






SEC 




F99A 


E9 


13 




SBC 


#*13 


F99C 


E5 


Bl 




SBC 


$B1 


F99E 


65 


92 




ADC 


*92 


F9A0 


85 


92 




STA 


$92 


F9A2 


A5 


A4 




LDA 


$A4 


F9A4 


49 


01 




EOR 


#$01 


F9A6 


85 


A4 




STA 


$A4 


F9A8 


FO 


2B 




BEQ 


$F9D5 


F9AA 


86 


D7 




STX 


$D7 


F9AC 


A5 


B4 




LDA 


$B4 


F9AE 


FO 


22 




BEQ 


$F9D2 


F9B0 


AD 


A3 


02 


LDA 


$02A3 


F9B3 


29 


01 




AND 


#$01 


F9B5 


DO 


05 




BNE 


$F9BC 


F9B7 


AD 


A4 


02 


LDA 


$02A4 


F9BA 


DO 


16 




BNE 


$F9D2 


F9BC 


A9 


00 




LDA 


#$00 


F9BE 


85 


A4 




STA 


$A4 


F9C0 


8D 


A4 


02 


STA 


$02A4 


F9C3 


A5 


A3 




LDA 


$A3 



A-134 



F9C5 


10 


30 




BPL 


*F9F7 


F9C7 


30 


BF 




BMI 


*F988 


F9C9 


A2 


A6 




LDX 


#$A6 


F9CB 


20 


E2 


F8 


JSR 


*F8E2 


F9CE 


A5 


9B 




LDA 


*9B 


F9D0 


DO 


B9 




BNE 


*F98B 


F9D2 


4C 


BC 


FE 


JMP 


*FEBC 


F9D5 


A5 


92 




LDA 


*92 


F9D7 


FO 


07 




BEQ 


*F9E0 


F9D9 


30 


03 




BMI 


*F9DE 


F9DB 


C6 


BO 




DEC 


*BO 


F9DD 


2e 






-BYTE *2C 


F9DE 


E6 


BO 




INC 


$B0 


F9E0 


A9 


00 




LDA 


#*00 


F9E2 


85 


92 




STA 


*92 


F9E4 


E4 


D7 




CPX 


*D7 


F9E6 


DO 


OF 




BNE 


*F9F7 


F9E8 


8A 






TXA 




F9E9 


DO 


AO 




BNE 


*F98B 


F9EB 


A5 


A9 




LDA 


*A9 


F9ED 


30 


BD 




BMI 


*F9AC 


F9EF 


C9 


10 




CMP 


#*10 


F9F1 


90 


B9 




BCC 


*F9AC 


F9F3 


85 


96 




STA 


*96 


F9F5 


BO 


B5 




BCS 


:*F9AC 


F9F7 


8A 






TXA 




F9F8 


45 


9B 




EOR 


*9B 


F9FA 


85 


9B 




STA 


*9B 


F9FC 


A5 


B4 




LDA 


*B4 


F9FE 


FO 


D2 




BEQ 


*F9D2 


FAOO 


C6 


A3 




DEC 


*A3 


FA02 


30 


C5 




BMI 


*F9C9 


FA04 


46 


D7 




LSR 


*D7 


FA06 


66 


BF 




ROR 


*BF 


FA08 


A2 


DA 




LDX 


#$DA 


FAOA 


20 


E2 


F8 


JSR 


*F8E2 


FAOD 


4C 


BC 


FE 


JMP 


*FEBC 


FAIO 


A5 


96 




LDA 


*96 


FA12 


FO 


04 




BEQ 


*FA18 


FA14 


A5 


B4 




LDA 


*B4 


FA16 


FO 


07 




BEQ 


*FA1F 


FA18 


A5 


A3 




LDA 


*A3 


FAIA 


30 


03 




BMI 


*FA1F 


FAIC 


4C 


97 


F9 


JMP 


*F997 


FAIF 


46 


Bl 




LSR 


*Bi 


FA21 


A9 


93 




LDA 


#*93 


FA23 


38 






SEC 




FA24 


E5 


Bl 




SBC 


*B1 


FA26 


65 


BO 




ADC 


*B0 


FA28 


OA 






ASL 




FA29 


AA 






TAX 




FA2A 


20 


E2 


F8 


JSR 


*F8E2 


FA2D 


E6 


9C 




INC 


*9C 


FA2F 


A5 


B4 




LDA 


*B4 



A-135 



\ 



FA31 

FA33 

FA35 

FA37 

FA39 

FA3B 

FA3D 

FA3F 

FA42 

FA44 

FA46 

FA48 

FA4A 

FA4C 

FA4E 

FA50 

FA53 

FA55 

FA57 

FA59 

FA5B 

FA5D 

FA60 

FA63 

FA65 

FA67 

FA6A 

FA6C 

FA6E 

FA70 

FA72 

FA74 

FA76 

FA78 

FA7A 

FA7C 

FA7D 

FA7F 

FA81 

FA84 

FA86 

FA88 

FASA 

FA8D 

FA8F 

FA91 

FA93 

FA95 

FA97 

FA99 

FA9B 

FA9C 

FA9E 

FAAO 

FAA2 



DO 11 
A5 96 
FO 26 
85 A8 
A9 OO 
85 96 
A9 81 
8D OD 
85 B4 
A5 96 
85 B5 
FO 09 
A9 OO 
85 B4 
A9 01 
8D OD 
A5 BF 
85 BD 
A5 A8 
05 A9 
85 B6 
4C BC 
20 97 
85 9C 
A2 DA 
20 E2 
A5 BE 
FO 02 
85 A7 
A9 OF 
24 AA 
10 17 
A5 B5 
DO OC 
A6 BE 
CA 

DO OB 
A9 08 
20 IC 
DO 04 
A9 00 
85 AA 
4C BC 
70 31 
DO 18 
A5 B5 
DO F5 
A5 B6 
DO Fl 
A5 A7 
4A 

A5 BD 
30 03 
90 18 
18 



BNE 
LDA 
BEQ 
STA 
LDA 
STA 
LDA 
DC STA 
STA 
LDA 
STA 
BEQ 
LDA 
STA 
LDA 
DC STA 
LDA 
STA 
LDA 
ORA 
STA 
FE JMP 
FB JSR 
STA 
LDX 
F8 JSR 
LDA 
BEQ 
STA 
LDA 
BIT 
BPL 
LDA 
BNE 
LDX 
DEX 
BNE 
LDA 
FE JSR 
BNE 
LDA 
STA 
FE JMP 
BVS 
BNE 
LDA 
BNE 
LDA 
BNE 
LDA 
LSR 
LDA 
BMI 
BCC 
CLC 



*FA44 
*96 
$FA5D 
$A8 

#*oo 

*96 
#$81 
*DCOD 
$B4 
$96 
$B5 
*FA53 

#$oo 

«B4 
#*01 
*DCOD 
*BF 
$BD 
$A8 
$A9 
$B6 
*FEBC 
*FB97 
*9C 
#*DA 
*F8E2 
*BE 
*FA70 
*A7 
#*0F 
$AA 
*FA8D 
*B5 
*FA86 
*BE 



return -from interrupt 



*FA8A 

#*08 

*FE1C 

*FA8A 

#^00 

$AA 

*FEBC 

*FACO 

*FAA9 

*B5 

*FA8A 

$B6 

*FA8A 

*A7 

*BD 

*FAA3 

$FABA 



"LONG BLOCK" error 
set status 



return -from interrupt 



A-136 



FAA3 BO 15 BCS $FABA 

FAA5 29 OF AND #*0F 

FAA7 85 AA STA *AA 

FAA9 C6 AA DEC *AA 

FAAB DO DD BNE *FA8A 

FAAD A9 40 LDA #*40 

FAAF 85 AA STA *AA 

FABl 20 8E FB JSR *FB8E 

FAB4 A9 00 LDA tt*00 

FAB6 85 AB STA *AB 

FAB8 FO DO BEQ *FA8A 

FABA A9 80 LDA #*80 

FABC 85 AA STA *AA 

FABE DO CA BNE *FA8A 

FACO A5 B5 LDA *B5 

FAC2 FO OA BEQ *FACE 

FAC4 A9 04 LDA #*04 "SHORT BLOCK" error 

FAC6 20 IC FE JSR *FE1C set status 

FAC9 A9 00 LDA #$=00 

FACB 4C 4A FB JMP *FB4A 

FACE 20 Dl FC JSR *FCD1 

FADl 90 03 BCC $FAD6 

FAD3 4C 48 FB JMP *FB48 

FAD6 A6 A7 LDX *A7 

FAD8 CA DEX 

FAD9 FO 2D BEQ $FB08 

FADB A5 93 LDA $93 

FADD FO OC BEQ *FAEB 

FADF AO 00 LDY #*00 

FAEl A5 BD LDA *BD 

FAE3 Dl AC CMP (*AC) ,Y 

FAE5 FO 04 BEQ *FAEB 

FAE7 A9 01 LDA #*01 

FAE9 85 B6 STA *B6 

FAEB A5 B6 LDA *B6 

FAED FO 4B BEQ *FB3A 

FAEF A2 3D LDX #*3D 

FAFl E4 9E CPX *9E 

FAF3 90 3E BCC *FB33 

FAF5 A6 9E LDX *9E 

FAF7 A5 AD LDA *AD 

FAF9 9D 01 01 STA *0101,X 

FAFC A5 AC LDA *AC 

FAFE 9D 00 01 STA *0100,X 

FBOl E8 INX\ 

FB02 E8 INX 

FB03 86 9E STX *9E 

FB05 4C 3A FB JMP *FB3A 

FB08 A6 9F LDX *9F 

FBOA E4 9E CPX *9E 

FBOC FO 35 BEQ *FB43 

FBOE A5 AC LDA *AC 

FBIO DD 00 Ol CMP *0100,X error-correction at pass 2 

FBI 3 DO 2E BNE *FB43 

FBI 5 A5 AD LDA *AD 



A-137 



FB17 


DD Ol 01 CMP 


*0101 , X 




FBIA 


DO 27 


BNE 


*FB43 




FBIC 


E6 9F 


INC 


*9F 




FBIE 


E6 9F 


INC 


*9F 




FB20 


A5 93 


LDA 


$93 




FB22 


FO OB 


BEQ 


*FB2F 




FB24 


A5 BD 


LDA 




r"eacj byte 


FB26 


AO 00 


LDY 


#*00 




FB28 


Dl AC 


CMP 


($AC) ,Y 


FB2A 


FO 17 


BEQ 


*FB43 




FB2C 


C8 


I NY 






FB2D 


84 B6 


STY 


$B6 




FB2F 


A5 B6 


LDA 


*B6 




FB31 


FO 07 


BEQ 


*FB3A 




FB33 


A9 10 


LDA 


#*10 


SECOND rHots error 


FB35 


20 IC 


FE asR 


$FE1C 


set status 


FB38 


DO 09 


BNE 


^FB43 


ver i -f y? 


FB3A 


A5 93 


LDA 


*93 


FB3C 


DO 05 


BNE 


$:FB43 


yes 


FB3E 


A8 


TAY 






FB3F 


A5 BD 


LDA 


*BD 


read byte 


FB41 


91 AC 


STA 


<*AC) ,Y 


save 


FB43 


20 DB 


FC JSR 


*FCDB 


increment aaaress poim-er 


FB46 


DO 43 


BNE 


*FB8B 




TB4Q 


A9 BO 






FB4A 


85 AA 


STA 


*AA 




FB4C 


78 


SEI 






FB4D 


A2 01 


LDX 






FB4F 


8E OD 


DC STX 


*DCOD 




FB52 


AE OD 


DC LDX 


$DCOD 




FB55 


A6 BE 


LDX 


$BE 


decrement 


FB57 


CA 


DEX 




pass—counter 


FB58 


30 02 


BMI 


*FB5C 




FB5A 


86 BE 


STX 


*BE 




FB5C 


C6 A7 


DEC 


$A7 




FB5E 


FO 08 


BEQ 


*FB68 




FB60 


A5 9E 


LDA 


*9E 




FB62 


DO 27 


BNE 


*FB8B 




FB64 


85 BE 


STA 


*BE 




FB66 


FO 23 


BEQ 


*FB8B 




FB68 


20 93 


FC JSR 


*FC93 


one pass ended 


FB6B 


20 8E 


FB JSR 


*FB8E 


address back to program 


FB6E 


AO OO 


LDY 


#*00 


start 


FB70 


84 AB 


STY 


*AB 




FB72 


Bl AC 


LDA 


(*AC) ,Y 


calculate program check-sum 


FB74 


45 AB 


EOR 


$AB 




FB76 


85 AB 


STA 


*AB 




FB78 


20 DB 


FC JSR 


$FCDB 


increment address-pointer 


FB7B 


20 Dl 


FC JSR 


*FCD1 


end-address reached yet? 


FB7E 


90 F2 


BCC 


*FB72 


no, continue comparison 


FB80 


A5 AB 


LDA 


$AB 


calculated check— sum 


FB82 


45 BD 


EOR 


$BD 


compare with tapes checksum 


FB84 


FO 05 


BEQ 


*FB8B 


check— sum ok? 


FB86 


A9 20 


LDA 


#*20 


"CHECK SUM" error 


FB88 


20 IC 


FE JSR 


*FE1C 


set status 
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FB8B 


4C 


BC 


FE JMP 


*FEBC 


FB8E 


A5 


C2 


LDA 


*C2 


FB90 


85 


AD 


STA 


*AD 


FB92 


A5 


CI 


LDA 


*C1 


FB94 


85 


AC 


STA 


*AC 


FB96 


60 




RTS 





resum -From interrupt 



i™**?***?****************** Set bit-counter -for serial 

out-put 

a bits 



FB97 


A9 


08 


LDA 


#*08 


FB99 


85 


A3 


STA 


*A3 


FB9B 


A9 


00 


LDA 


#*00 


FB9D 


85 


A4 


STA 


*A4 


FB9F 


85 


A8 


STA 


*A8 


FBAl 


85 


9B 


STA 


*9B 


FBA3 


85 


A9 


STA 


*A9 


FBA5 


60 




RTS 





FBA6 


A5 


BD 




LDA 


*BD 


FBA8 


4A 






LSR 




FBA9 


A9 


60 




LDA 


#*60 


FBAB 


90 


02 




BCC 


*FBAF 


FBAD 


A9 


BO 




LDA 


#*B0 


FBAF 


A2 


00 




LDX 


#*oo 


FBBl 


8 b 


06 


DC 


STA 


VdC06 


FBB4 


8E 


07 


DC 


STX 


*DC07 


FBB7 


AD 


OD 


DC 


LDA 


*DC0D 


FBBA 


A9 


19 




LDA 


#*19 


FBBC 


8D 


OF 


DC 


STA 


*DCOF 


FBBF 


A5 


01 




LDA 


*01 


FBCl 


49 


08 




EOR 


#*08 


FBC3 


85 


01 




STA 


*01 


FBC5 


29 


08 




AND 


#*08 


FBC7 


60 






RTS 




FBCB 


38 






SEC 




FBC9 


66 


B6 




ROR 


^B6 


FBCB 


30 


3G 




BMI 


*FC09 



Write one bit on tape 
bit in *8D 
bit O in carry 
time -for "1" bit 

time for "0"bit 

timer B low 

timer B high 

clear interrupt— flag 

start timer 

invert output bit for tape 



***************************** 



FBCD 


A5 


A8 




LDA 


*A8 


FBCF 


DO 


12 




BNE 


*FBE3 


FBDl 


A9 


10 




LDA 


#*10 


FBD3 


A2 


01 




LDX 


#*01 


FBD5 


20 


Bl 


FB 


JSR 


*FBB1 


FBD8 


DO 


2F 




BNE 


-*FC09 


FBDA 


E6 


A8 




INC 


*Aa 


FBDC 


A5 


B6 




LDA 


-^B6 


FBDE 


10 


29 




BPL 


*FC09 


FBEO 


4C 


57 


FC 


JMP 


*FC57 


FBE3 


A5 


A9 




LDA 


*A9 


FBE5 


DO 


09 




BNE 


*FBFO 


FEE7 


20 


AD 


FB 


JSR 


*FBAD 


FBEA 


DO 


ID 




BNE 


■*FC09 


FBEC 


E6 


A9 




INC 


*A9 


FBEE 


DO 


19 




BNE 


*FC09 



Write interrupt routine for 

tape 



write cycle on tape 



write second block 



write "0"-bit 
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FBFO 


20 


A6 


FB 


JSR 


$FBA6 


FBF3 


DO 


14 




BNE 


*FC09 


FBF5 


A5 


A4 




LDA 


$A4 


FBF7 


49 


01 




EOR 


#$01 


FBF9 


85 


A4 




STA 


$A4 


FBFB 


FO 


OF 




BEQ 


*FCOC 


FBFD 


A5 


BD 




LDA 


$BD 


FBFF 


49 


01 




EOR 


#$01 


FCOl 


85 


BD 




STA 


$BD 


FC03 


29 


01 




AND 


#$01 


FC05 


45 


9B 




EOR 


*9B 


FC07 


85 


9B 




STA 


*9B 


FC09 


4C 


BC 


FE 


JMP 


$FEBC 


FCOC 


46 


BD 




LSR 


$BD 


FCOE 


C6 


A3 




DEC 


$A3 


FCIO 


AS 


A3 




LDA 


$A3 


FC12 


FO 


3A 




BEQ 


$FC4E 


FC14 


10 


F3 




BPL 


$FC09 


FC16 


20 


97 


FB 


JSR 


*FB97 


FC19 


58 






CLI 




FCIA 


A5 


A5 




LDA 


$A5 


FCIC 


FO 


12 




BEQ 


*FC30 


FCIE 


A2 


00 




LDX 


#$00 


FC20 


86 


D7 




STX 


$D7 


FC22 


C6 


A5 




DEC 


$A5 


FC24 


A6 


BE 




LDX 


$BE 


FC26 


EO 


02 




CPX 


#$02 


FC28 


DO 


02 




BNE 


$FC2C 


FC2A 


09 


80 




ORA 


#$80 


FC2C 


85 


BD 




STA 


$BD 


FC2E 


DO 


D9 




BNE 


$FC09 


FC30 


20 


Dl 


FC 


JSR 


$FCD1 


FC33 


90 


OA 




BCC 


$FC3F 


FC35 


DO 


91 




BNE 


$FBC8 


FC37 


E6 


AD 




INC 


$AD 


FC39 


A5 


D7 




LDA 


$D7 


FC3B 


85 


BD 




STA 


$BD 


FC3D 


BO 


CA 




BCS 


$FC09 


FC3F 


AO 


00 




LDY 


#$00 


FC41 


Bl 


AC 




LDA 


($AC) ,Y 


FC43 


85 


BD 




STA 


$BD 


FC45 


45 


D7 




EOR 


$D7 


FC47 


85 


D7 




STA 


$D7 


FC49 


20 


DB 


FC 


JSR 


$FCDB 


FC4C 


DO 


BB 




BNE 


$FC09 


FC4E 


A5 


9B 




LDA 


$9B 


FC50 


49 


01 




EOR 


#$01 


FC52 


85 


BD 




STA 


$BD 


FC54 


4C 


BC 


FE 


JMP 


$FEBC 


FC57 


C6 


BE 




DEC 


$BE 


FC59 


DO 


03 




BNE 


$FC5E 


FC5B 


20 


CA 


FC 


JSR 


$FCCA 


FC5E 


A9 


50 




LDA 


#$50 



write bit on tape 



invert bit for output 



return -from interrupt 
next bit in position O 
decrement bit-counter 



out-put next bit 

set bit-counter back to 8 



end-address reached yet? 



byte to be written 



increment address pointer 



return -from interrupt 
decrement counter -for block 
another block? 
no, tape-drive off 



140 



FC60 


85 


A7 




STA 


*A7 




FC62 


A2 


OS 




t HY 
I_U A 






FC64 


78 






SEI 






FC65 


20 


BD 


FC 


JSR 


*FCBD 


IRQ on *FC6A 


FC68 


DO 


EA 




BNE 


*FC54 


return -from interrupt 




Write tape interrupt routine 


FC6A 


A9 


78 




LDA 


#*78 


FC6C 


20 


AF 


FB 


JSR 


*FBAF 


write bit on tape 


FC6F 


DO 


E3 




BNE 


*FC54 


FC7i 


C6 


A7 




DEC 


*A7 




FC73 


DO 


DF 




BNE 


*FC54 


return -from interrupt 


FC75 


. 20 


97 


FB 


JSR 


*FB97 


set bit-counter -For. serial 


FC7B 


C6 


AB 




DEC 


$AB 


out-put 


FC7A 


10 


D8 




BPL 


*FC54 


FC7C 


A2 


OA 




LDX 


#*0A 




FC7E 


20 


BD 


FC 


JSR 


*FCBD 


IRQ on *FBCD 


FC81 


58 






CLI 






FCa2 


E6 


AB 




INC 


$AB 




FC84 


A5 


BE 




LDA 


$:BE 




FC86 


FO 


30 




BEQ 


*FCB8 




FC88 


20 


8E 


FB 


JSR 


*FB8E 


set address back to start 


FC8B 


A2 


09 




LDX 


#*09 




FC8D 


86 


A5 




STX 


*A5 




FC8F 


86 


B6 




STX 


$B6 




FC91 


DO 


83 




BNE 


*FC16 




FC93 


08 






PHP 






FC94 


78 






SEI 






FC95 


AD 


11 


DO 


LDA 


*D011 




FC9B 


09 


10 




ORA 


#*10 


turn screen back on 


FC9A 


8D 


11 


DO 


STA 


*D011 




FC9D 


20 


CA 


FC 


JSR 


$^FCCA 


turn o-f-f tape drive 


FCAO 


A9 


7F 




LDA 


#*7F 




FCA2 


8D 


OD 


DC 


STA 


*DCOD 




FCA5 


20 


DD 


FD 


JSR 


*FDDD 


CIA back to standard values 


FCA8 


AD 


AO 


02 


LDA 


*02A0 




FCAB 


FO 


09 




BEQ 


*FCB6 




FCAD 


8D 


15 


03 


STA 


*0315 


IRQ on standard 


FCBO 


AD 


9F 


02 


LDA 


*029F 




FCB3 


8D 


14 


03 


STA 


*0314 




FCB6 


28 






PLP 






FCB7 


60 






RTS 






******************************* 


Se?t IRQ vector 


FCB8 


20 


93 


FC 


JSR 


*FC93 


IRQ on standard 


FCBB 


FO 


97 




BEQ 


*FC54 




FCBD 


BD 


93 


FD 


LDA 


*FD93,X 




FCCO 


8D 


14 


03 


STA 


*0314 


=jt3 L J. rVli! V trL_ l_ Ur Tr CJIII v- cxU X 1= 


FCC3 


BD 


94 


FD 


LDA 


*FD94 , X 




FCC6 


8D 


15 


03 


STA 


*0315 




FCC9 


60 






RTS 










FCCA 


A5 


01 




LDA 


*01 




FCCC 


09 


20 




ORA 


#:*20 


switch off tape drive 


FCCE 


85 


01 




STA 


*01 
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FCDO 60 RTS 
***************************** 



FCDl 


38 




SEC 




FCD2 


A5 


AC 


LDA 


*AC 


FCD4 


E5 


AE 


SBC 


$AE 


FCD6 


AS 


AD 


LDA 


*AD 


FCD8 


E5 


AF 


SBC 


*AF 


FCDA 


60 




RTS 





FCDB 


E6 


AC 




INC 


*AC 


FCDD 


DO 


02 




BNE 


$FCE1 


FCDF 


E6 


AD 




INC 


*AD 


FCEl 


60 






RTS 




**************************^ 


FCE2 


A2 


FF 




LDX 


#*FF 


FCE4 


78 






SEI 




FCE5 


9A 






TXS 




FCE6 


D8 






CLD 




FCE7 


20 


02 


FD 


JSR 


*FD02 


FCEA 


DO 


03 




BNE 


*FCEF 


FCEC 


6C 


00 


80 


JMP 


(*8000) 


FCEF 


8E 


16 


DO 


STX 


*D016 . 


FCF2 


20 


A3 


FD 


JSR 


*FDA3 


FCF5 


20 


50 


FD 


JSR 


*FD50 


FCF8 


20 


15 


FD 


JSR 


*FD15 


FCFB 


20 


5B 


FF 


JSR 


*FF5B 


FCFE 


58 






CLI 




FCFF 


6C 


00 


AO 


JMP 


(*A000) 



Checks on reaching the end- 
address 
current address *AC/*AD 

end address *AE/:^AF 



Increment address pointer 
RESET 

checks on ROM in *8000 
jump to module start 



^t^t*************************** 

FD02 A2 05 LDX #*05 

FD04 BD OF FD LDA $FD0F,X 

FD07 DD 03 80 CMP *8003,X 

FDOA DO 03 BNE *FD0F 

FDOC CA DEX 

FDOD DO F5 BNE •*FD04 

FDOF 60 RTS 

^nt^t************************** 
FDIO C3 C2 CD 38 30 

4(.^t^t.*»»****^|.****************** 



FD15 


A2 


30 


LDX 


#*30 




FD17 


AO 


FD 


LDY 


#*FD 




FD19 


18 




CLC 






FDIA 


86 


C3 


STX 


*C3 




FDIC 


84 


C4 


STY 


^:C4 




FDIE 


AO 


IF 


LDY 


#*1F 




FD20 


B9 


14 


03 LDA 


*0314 


,Y 


FD23 


BO 


02 


BCS 


*FD27 




FD25 


Bl 


C3 


LDA 


(*C3) 




FD27 


91 


C3 


STA 


(*C3) 





to BASIC cold-start 
Checks on ROM in *8000 

compares to "CBM80" 



ROM module identivi cation 
"CBM80" 

Set /get hardware and I/O 

vector 
pointer to table *FD30 



C=l then get vectors, C=l 
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FD29 99 14 03 STA *0314,Y 

FD2C 88 DEY 

FD2D 10 Fl BPL *FD20 

FD2F 60 RTS 

FD30 31 EA 66 FE 47 FE 4A F3 
FD38 91 F2 OE F2 50 F2 33 F3 
FD40 57 Fl CA Fl ED F6 3E Fl 
FD48 2F F3 66 FE A5 F4 ED F5 



Table hardware 8e I/O vectors 



***************»************^, Initialize work memory 



FD50 


A9 


00 




LDA 


#*00 




FD52 


A8 






TAY 






FD53 


99 


02 


00 


STA 


*0002, 


,Y 


FD56 


99 


00 


02 


STA 


*0200, 


,Y 


FD59 


99 


00 


03 


STA 


*0300, 


,Y 


FD5C 


C8 






I NY 






FD5D 


DO 


F4 




BNE 


*FD53 




FD5F 


A2 


3C 




LDX 


#*3C 




FD61 


AO 


03 




LDY 


#$03 




FD63 


86 


B2 




STX 


*B2 




FD65 


84 


B3 




STY 


*B3 




FD67 


A8 






TAY 






FD6B 


A9 


03 




LDA #*03 




FD6A 


85 


C2 




STA 


^:C2 




FD6C 


E6 


C2 




INC 


*C2 




FD6E 


Bl 


CI 




LDA 


(*C1) , 


Y 


FD70 


AA 






TAX 






FD71 


A9 


55 




LDA 


#*55 




FD73 


91 


CI 




STA 


(*C1) , 


Y 


FD75 


Dl 


CI 




CMP 


<*C1) , 


Y 


FD77 


DO 


OF 




BNE 


*FD88 




FD79 


2A 






ROL 






FD7A 


91 


Gl 




STA 


(*C1) , 


Y 


FD7C 


Dl 


CI 




CMP 


(*C1) , 


Y 


FD7E 


DO 


08 




BNE 


*FD88 




FD80 


8A 






TXA 






FD81 


91 


CI 




STA 


(*C1) , 


Y 


FD83 


C8 






I NY 






FD84 


DO 


E8 




BNE 


*FD6E 




FD86 


FO 


E4 




BEQ 


*FD6C 




FD88 


98 






TYA 






FD89 


AA 






TAX 






FD8A 


A4 


C2 




LDY 


*C2 




FD8C 


18 






CLC 






FD8D 


20 


2D 


FE 


JSR 


$FE2D 




FD90 


A9 


08 




LDA 


#*08 




FD92 


8D 


82 


02 


STA 


*0282 




FD95 


A9 


04 




LDA 


#*04 




FD97 


8D 


88 


02 


STA 


*0288 




FD9A 


60 






RTS 







zero page 
clear page 2 
and page 3. 



tape-bu-F-fer pointer on*033C 



check RAM -from *400 



7.01010101 



7.10101010 



set memory (RAM) top 
BASIC start on $800 
Video-RAM on *400 



FD9B 6 A FC CD FB 31 EA 2C F9 



IRQ vectors 
*FC6A, *FBCD, *EA31, *F92C 
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FDA3 


A9 


7F 




LDA 


#*7F 


FDA5 


8D 


OD 


DC 


STA 


*DCOD 


FDA8 


8D 


OD 


DD 


STA 


$DDOD 


FDAB 


8D 


OO 


DC 


STA 


*DCOO 


FDAE 


A9 


08 




LDA 


#*08 


FDBO 


8D 


OE 


DC 


STA 


*DCOE 


FDB3 


8D 


OE 


DD 


STA 


*DDOE 


FDB6 


8D 


OF 


DC 


STA 


*DCOF 


FDB9 


8D 


OF 


DD 


STA 


*DDOF 


FDBC 


A2 


OO 




LDX 


#*00 


FDBE 


8E 


03 


DC 


STX 


*DC03 


FDCl 


8E 


03 


DD 


STX 


*DD03 


FDC4 


8E 


18 


D4 


STX 


$D418 


FDC7 


GA 






DEX 




FDCB 


8E 


02 


DC 


STX 


*DC02 


FDCB 


A9 


07 




LDA 


#*07 


FDCD 


8D 


00 


DD 


STA 


*DDOO 


FDDO 


A9 


3F 




LDA 


#*3F 


FDD2 


8D 


02 


DD 


STA 


*DD02 


FDD5 


A9 


E7 




LDA 


#*E7 


FDD7 


85 


Ol 




STA 


$01 


FDD9 


A9 


2F 




LDA 


#*2F 


FDDB 


85 


00 




STA 


$00 


FDDD 


AD 


A6 


02 


LDA 


*02A6 


FDEO 


FO 


OA 




BEQ 


$FDEC 


FDE2 


A9 


25 




LDA 


#*25 


FDE4 


8D 


04 


DC 


STA 


*DC04 


FDE7 


A9 


40 




LDA 


#*40 


FDE9 


4C 


F3 


FD 


JMP 


*FDF3 


FDEC 


A9 


95 




LDA 


#:*95 


rUc.c. 


oU 


yJ'T 




STA 


$DC04 


FDFl 


A9 


42 




LDA 


#*42 


FDF3 


8D 


05 


DC 


STA 


*DC05 


FDF6 


4C 


6E 


FF 


JMP 


*FF6E 




FDF9 


85 


B7 




STA 


*B7 


FDFB 


86 


BB 




STX 


*BB 


FDFD 


84 


BC 




STY 


*BC 


FDFF 


60 






RTS 





(CIAl) 

interrupt control register 

" CIA2 



port A CIA 1 



A CIA 1 
A CIA 2 
B CIA 1 



control register 
control register 
control register 
control register B CIA 2 
entrance mode 
data direction register B 
data direction register B 
volume -for SID on zero 
out— put mode 

data direction register A 



port A CIA 2 

data direction register A 2 



Set parameter -For -filename 
length 
address low 
address high 



***************************** Set active files parameter 



FEOO 


85 


B8 


STA 


^B3 


logical -file numbe 


FE02 


86 


BA 


STX 


$BA 


device address 


FE04 


84 


B9 


STY 


*B9 


secondary address 


FE06 


60 




RTS 






***************************** 


Get status 


FE07 


A5 


BA 


LDA 


:^BA 


device number 


FE09 


C9 


02 


CMP 


#*02 


equal ?? 


FEOB 


DO 


OD 


BNE 


*FE1A 


no 


FEOD 


AD 


97 02 


LDA 


*0297 


get RS-232 status 


FEIO 


48 




PHA 




FEll 


A9 


OO 


LDA 


#*oo 


clear status 


FE13 


8D 


97 02 


STA 


$0297 




FE16 


68 




PLA 







A-144 



FE17 60 RTS 



***************************** 
FEiS 85 9D ST A *9D 

*************************^(.^(.^^(. 
FEIA A5 90 LDA $90 

*********************^^#^(.4(.**** 

FEIC 05 90 ORA *90 
FEIE 85 90 ST A *90 
FE20 60 RTS 

***************************#^t 

FE21 8D 85 02 STA *0285 
FE24 60 RTS 

**********************#^t.#^{.4(.^^(. 

FE25 90 06 BCC *FE2D 

FE27 AE 83 02 LDX *0283 

FE2A AC 84 02 LDY *0284 

FE2D 8E 83 02 STX *0283 

FE30 8C 84 02 STY *0284 

FE33 60 RTS 

**************************#^^^ 
FE34 90 06 BCC *FE3C 
FE36 AE 81 02 LDX *0281 
FE39 AC 82 02 LDY *0282 



FE3C 
FE3F 
FE42 



8E 81 02 STX 
8C 82 02 STY 



$0281 
*0282 



Set operating system messages 
Get status 
Set status 

Set time-out -flag for I EC 



MEMTOP get /set end of BASIC- 
RAM 

carry is set 

get address to X/Y 

carry clear 

set X/Y to address 



MEMBOT get /set bottom of 

BASIC-RAM 

s. a. 



60 



RTS 



************************^t4t.*#^(. 



FE43 


78 






SEI 




FE44 


6C 


18 


03 


J MP 


($0318) 


FE47 


48 






PHA 




FE4a 


8A 






TXA 




FE49 


48 






PHA 




FE4A 


98 






TYA 




FE4B 


48 






PHA 




FE4C 


A9 


7F 




LDA 


#*7F 


FE4E 


8D 


OD 


DD 


STA 


*DDOD 


FE51 


AC 


OD 


DD 


LDY 


*DDOD 


FE54 


30 


IC 




BMI 


*FE72 


FE56 


20 


02 


FD 


JSR 


*FD02 


FE59 


DO 


03 




BNE 


*FE5E 


FE5B 


6C 


02 


80 


JMP 


(*8002) 


FE5E 


20 


BC 


F6 


JSR 


*F6BC 


FE61 


20 


El 


FF 


JSR 


*FFE1 


FE64 


DO 


OC 




BNE 


*FE72 


FE66 


20 


15 


FD 


JSR 


*FD15 


FE69 


20 


A3 


FD 


JSR 


*FDA3 


FE6C 


20 


18 


E5 


JSR 


*E518 



NMI-interrupt 
JMP *FE47 

save register 



RS-232 active 

checks on ROM in *8000 

no, then continue 

yes, jump to module-NMI 

set -flag -for STOP-key 

scan stop key 

fiot pressed 

set standard I/O vectors 
initialize I/O 
initialize I/O&clear screen 
to BASIC warm-start 
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FE6F 


6C 


02 


AO 


JMP 


(*A002) 


FE72 


98 






TYA 




FE73 


2D 


Al 


02 


AND 


*02A1 


FE76 


AA 






TAX 




FE77 


29 


01 




AND 


»*01 


FE79 


FO 


28 




BEQ 


*FEA3 


FE7B 


AD 


OO 


DD 


LDA 


*DDOO 


FE7E 


29 


FB 




AND 


#*FB 


FE80 


05 


B5 




ORA 


*B5 


FE82 


8D 


00 


DD 


STA 


*DDOO 


FE85 


AD 


Al 


02 


LDA 


*02A1 


FE88 


8D 


OD 


DD 


STA 


*DDOD 


FE8B 


8A 






TXA 




FE8C 


29 


12 




AND 


#*12 


FE8E 


FO 


OD 




BEQ 


*FE9D 


FE90 


29 


02 




AND 


#*02 


FE92 


FO 


06 




BEQ 


*FE9A 


FE94 


20 


D6 


FE 


JSR 


*FED6 


FE97 


4C 


9D 


FE 


JMP 


*FE9D 


FE9A 


20 


07 


FF 


JSR 


*FF07 


FE9D 


20 


BB 


EE 


JSR 


*EEBB 


FEAO 


4C 


B6 


FE 


JMP 


:$FEB6 


FEA3 


8A 






TXA 




FEA4 


29 


02 




AND 


#*02 


FEA6 


FO 


06 




BEQ 


*FEAE 


FEA8 


20 


D6 


FE 


JSR 


*FED6 


FEAB 


4C 


B6 


FE 


JMP 


*FEB6 


FEAE 


8A 






TXA 




FEAF 


29 


10 




AND 


#*io 


FEB! 


FO 


03 




BEQ 


*FEB6 


FEB3 


20 


07 


FF 


JSR 


*FF07 


FEB6 


AD 


Al 


02 


LDA 


*02A1 


FEB9 


8D 


OD 


DD 


§TA *DDOD 


FEBC 


68 






PLA 




FEBD 


A8 






TAY 




FEBE 


68 






PLA 




FEBF 


AA 






TAX 




FECO 


68 






PLA 




FECI 


40 






RTI 





FEC2 


CI 


27 


FEC4 


3A 


lA 


FEC6 


C5 


11 


FEC8 


74 


OE 


FECA 


ED 


OC 


FECC 


45 


06 


FECE 


FO 


02 


FEDO 


46 


01 


FED2 


B8 


OO 


FED4 


71 


00 



RS-232 in 

RS-232 out 

RS-232 output 

return from interrupt 



RS-232 in 

return -From interrupt 



RS-232 out 



get back register 



Baud-rate timer constants 



*27C1 




29377 


50 


baud 


$iA3A 




6718 


75 


baud 


$11C5 




4549 


110 


baud 


tOE74 




3700 


134.5 


baud 


*OCED 




3309 


150 


baud 


*0645 




1605 


300 


baud 


*-02F0 




752 


600 


baud 


$0146 




326 


1200 


b aud 


*00B8 




184 


1800 


baud 


•*:0071 




113 


2400 


baud 



***************************** NMI-routine +or RS-232 input 
FED6 AD 01 DD LDA *DD01 
FED9 29 01 AND #*01 
FEDB 85 A7 STA *A7 
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FEDD 


AD 


06 


DD 


LDA 


$:DD06 


FEEO 


E9 


IC 




SBC 


#*1C 


FEE2 


6D 


99 


02 


ADC 


*0299 


FEES 


8D 


06 


DD 


STA 


$DD06 


FEE8 


AD 


07 


DD 


LDA 


*DD07 


FEES 


6D 


9A 


02 


ADC 


*029A 


FEEE 


8D 


07 


DD 


STA 


*DD07 


FEFl 


A9 


11 




LDA 


#$11 


FEF3 


8D 


OF 


DD 


STA 


*DDOF 


FEF6 


AD 


Al 


02 


LDA 


*02A1 


FEF9 


8D 


OD 


DD 


STA 


*DDOD 




AO 


ETC 

r r 




LDA 


#$FF 


FEFE 


8D 


06 


DD 


STA 


$DD06 


FFOl 


8D 


07 


DD 


STA 


*DD07 


FF04 


4C 


59 


EF 


JMP 


*EF59 




FF07 


AD 


95 


02 


LDA 


$0295 


FFOA 


8D 


06 


DD 


STA 


$DD06 


FFOD 


AD 


96 


02 


LDA 


*0296 


FFIO 


8D 


07 


DD 


STA 


*DD07 


FF13 


A9 


11 




LDA 


#*11 


FF15 


8D 


OF 


DD 


STA 


*DDOF 


FFIS 


A9 


12 




LDA 


#*12 


FFiA 


4D 


Al 


02 


EOR 


*02A1 


FFID 


8D 


Al 


02 


STA 


*02A1 


FF20 


A9 


FF 




LDA 


#*FF 


FF22 


8D 


06 


DD 


STA 


*DD06 


FF25 


8D 


07 


DD 


STA 


*DD07 


FF28 


AE 


98 


02 


LDX 


*0298 


FF2B 


86 


A8 




STX 


:$A8 


FF2D 


60 






RTS 






FF2E 


AA 






TAX 




FF2F 


AD 


96 


02 


LDA 


*0296 


FF32 


2A 






ROL 




FF33 


A8 






TAY 




FF34 


8A 






TXA 




FF35 


69 


C8 




ADC 


#*C8 


FF37 


8D 


99 


02 


STA 


*0299 


FF3A 


98 






TYA 




FF3B 


69 


00 




ADC 


#*00 


FF3D 


8D 


9A 


02 


STA 


*029A 


FF40 


60 






RTS 




FF41 


EA 






NOP 




FF42 


EA 






NOP 






FF43 


08 






PHP 




FF44 


68 






PLA 




FF45 


29 


EF 




AND 


#*EF 


FF47 


48 






PHA 





RS-232 timer baud constants 



NMI- 



-routine -For RS232 output 



RS-232 timer baud constants 



number of bits to be sent 



RS-232 timing 



Interrupi^ -from tape-routine 

clear break— flag 
IRQ-interrupt 
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FF48 


48 






PHA 




FF49 


8A 






TXA 




FF4A 


48 






PHA 




FF4B 


98 






TYA 




FF4C 


48 






PHA 




FF4D 


BA 






TSX 




FF4E 


BD 


04 


Ol 


LDA 


*0104,X 


FF51 


29 


lO 




AND 




FF53 


FO 


03 




BEQ 


*FF58 


FF55 


6C 


16 


03 


JMP 


(*0316) 


FF58 


6C 


14 


03 


JMP 


(4f0314) 


************************** 


FF5B 


20 


18 


E5 


JSR 


*E518 


FF5E 


AD 


12 


DO 


LDA 


*D012 


FF61 


DO 


FB 




BNE 


*FF5E 


FF63 


AD 


19 


DO 


LDA 


*D019 


FF66 


29 


01 




AND 


#$01 


FF68 


8D 


A6 


02 


STA 


$02A6 


FF6B 


4C 


DD 


FD 


JMP 


*FDDD 



save register 



get break— flag -from stack 
anc check 
not set 
BREAK-routi ne 
interrupt-routine 



initialize video-controller 



***************************** 



FF6E 


A9 


81 




LDA 


#$81 


FF70 


8D 


OD 


DC 


STA 


$DCOD 


FF73 


AD 


OE 


DC 


LDA 


$DCOE 


FF76 


29 


80 




AND 


#$80 


FF78 


09 


11 




□RA 


#$11 


FF7A 


8D 


OE 


DC 


STA 


$DCOE 


FF7D 


4C 


8E 


EE 


JMP 


$EE8E 


FF80 


OO 






BRK 




***********»**************^ 


FF81 


4C 


5B 


FF 


JMP 


$FF5B 


FF84 


4C 


A3 


FD 


JMP 


$FDA3 


FF87 


4C 


50 


FD 


JMP 


$FD50 


FF8A 


4C 


15 


FD 


JMP 


$FD15 


FF8D 


4C 


lA 


FD 


JMP 


$FD1A 


FF90 


4C 


18 


FE 


JMP 


$FE18 


FF93 


4C 


B9 


ED 


JMP 


$EDB9 


FF96 


4C 


C7 


ED 


JMP 


$EDC7 


FF99 


4C 


25 


FE 


JMP 


$FE25 


FF9C 


4C 


34 


FE 


JMP 


$FE34 


FF9F 


4C 


87 


EA 


JMP 


$EA87 


FFA2 


4C 


21 


FE 


JMP 


$FE21 


FFA5 


4C 


13 


EE 


JMP 


$EE13 


FFA8 


4C 


DD 


ED 


JMP 


$EDDD 


FFAB 


4C 


EF 


ED 


JMP 


$EDEF 


FFAE 


4C 


FE 


ED 


JMP 


$EDFE 


FFBl 


4C 


OC 


ED 


JMP 


$ED0C 


FFB4 


4C 


09 


ED 


JMP 


$ED09 


FFB7 


4C 


07 


FE 


JMP 


$FE07 


FFBA 


4C 


00 


FE 


JMP 


$FE00 


FFBD 


4C 


F9 


FD 


JMP 


$FDF9 


FFCC 


6C 


lA 


03 


JMP 


($031A) 


FFC3 


6C 


IC 


03 


JMP 


($0310 



Jump-table -for operating- 
system routines 
initialize CIAs 
clear or check RAM 
initialize I/O 
initialize I/O vectors 
set status 

send LISTEN secondary adrs. 

send TALK secondary address 

set/get RAM-end 

set/get RAM-start 

scan keyboard 

set I EC-bus time-out flag 

input -from I EC-bus. 

output to I EC-bus 

s&nd UNTALK 

send UNLISTEN 

send LISTEN 

send TALK 

get. status 

set -file parameter 

set filename parameter 

$F34A OPEN 

$F291 CLOSE 
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FFC6 


6C 


IE 


03 


J MP 


(*031E) 


*F20E CHKIN set input device 


FFC9 


6C 


20 


03 


JMP 


(*0320) 


*F250 CKOUT set output device 


FFCC 


6C 


22 


03 


J MP 


(*0322) 


*F333 CLRCH 


FFCF 


6C 


24 


03 


JMP 


(*0324) 


*F157 BASIN input character 


FFD2 


6C 


26 


03 


JMP 


(*0326> 


*F1CA BSOUT output character 


FFD5 


4C 


9E 


F4 


JMP 


*F49E 


LOAD 


FFD8 


4C 


DD 


F5 


JMP 


*F5DD 


SAVE 


FFDB 


4C 


E4 


F6 


JMP 


*F6E4 


set time 


FFDE 


4C 


DD 


F6 


JMP 


*F6DD 


get time 


FFEl 


6C 


28 


03 


JMP 


(*0328) 


*F6ED scan STOP-key 


FFE4 


6C 


2A 


03 


JMP 


<*032A> 


*F13E GET 


FFE7 


6C 


2C 


03 


JMP 


( *032C ) 


*F32F CLALL 


FFEA 


4C 


9B 


F6 


JMP 


*F69B 


increase time 


FFED 


4C 


05 


E5 


JMP 


*E505 


SCREEN get # lines & columns 


FFFO 


4C 


OA 


E5 


JMP 


*E50A 


set /get cursor position 


FFF3 


4C 


OO 


E5 


JMP 


*E500 


get start of I/Q element 


FFF6 


52 


52 


42 


59 
















HardMare vectors 


FFFA 


43 


FE 




*FE43 


NM I— vector 


FFFC 


E2 


FC 




*FCE2 


RESET-vector 


FFFE 


48 


FF 




*FF48 


IRQ-vector 
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APPENDIX B 



A Short Introduction to Hexadecimal Arithmetic 

Computers represent data in binary format. In the binary 
number system, a digit may take on a value of either or 1. 
Each digit position in the binary number system has a value 
that is a power of 2, just as each digit position in the 
decimal number system has a value that is a power of 10. 

BINARY NUMBER SYSTEM 

Power of 2 76543210 
Value 128 64 32 16 8 4 2 1 

DECIMAL NUMBER SYSTEM 

Power of 10 5 4 3 2 1 

Value 100000 10000 1000 100 10 1 

If you want to represent the decimal number 17 in the binary 
number system, you would use the string of binary digits 
10001 which stands for: 

1 X 2^ + X 2^ + X 2^ + X 2^ + 1 X 2^ 
= 16 + 0+ 0+ 0+1 
17 

Representing numbers as a string of binary digits (commonly 
called "bits") would look as shown: 



Decimal 


Binary 


Decimal 


Binary 








13 


1101 


1 


1 


14 


1110 


2 


10 


15 


1111 


3 


11 


16 


10000 


4 


100 


17 


10001 


5 


101 


18 


10010 


6 


110 


19 


10011 


7 


111 


20 


10100 


8 


1000 


21 


10101 


9 


1001 


22 


10110 


10 


1010 


23 


10111 


11 


1011 


24 


11000 


12 


1100 


25 


11001 



Eight bits (remember - binary digits) is called a byte. A 
byte is the smallest accessible unit of data in the 
Commodore 64. Eight bits is capable of representing a value 
equivalent to decimal 255. 



B-1 



A String of eight bits however, is not very easy to read or 
write. Because they are awkward to interpret, bits are often 
represented in the hexadecimal numbering system (base 16). 
Each hexadecimal digits stands for four bits. 

Hexadecimal notation uses 16 symbols to represent the 16 
different values. These symbols are the numerals thru 9 
and the letter A thru F. Below is an equivalency chart: 



DECIMAL 


BINARY 


HEXADEC 











1 


1 


1 


2 


10 


2 


3 


11 


3 


4 


100 


4 


5 


101 


5 


6 


110 


6 


7 


111 


7 


8 


1000 


8 


9 


1001 


9 


10 


1010 


A 


11 


1011 


B 


12 


1100 


C 


13 


1101 


D 


14 


1110 


E 


15 


1111 


F 



To convert binary numbers to hexadecimal notation, divide 
the binary number into groups of four bits, starting at the 
right hand side. Replace each group of four bits by the 
corresponding hexadecimal symbol. If the left most group of 
bits is not a full four bits, then fill in with zeros. The 
example below illustrates this: 

101001101011010110 = (binary number) 

0010/1001/1010/1101/0110 = (4-bit groups) 

2 9 A D 6 (hexadecimal number) 
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APPENDIX C 

Sununary of the Commodore 64 



What are the features of the Commodore 64 that other 
computers don't offer? What makes its capabilities so 
different from the others? We'll attempt to summarize at 
this time. 

The Commodore 64 is far from being a game only machine. It 
has ambitions that are far beyond those computers that offer 
color, graphics^ and sound. It can be a computer for 
commercial use as well. With its graphics capabilities, you 
can get results that were formerly available only on much 
larger and more expensive computers. Yet even the micros of 
today will have a hard time competing against the Commodore. 
Through the use of BASIC 2, it is suitable for most 
applications. The beginner will be able to use it just as 
well as the experienced programmer. Since it can be 
programmed in assembler, there are excellent possibilities 
for expansion with the several assemblers already on the 
market. 

Besides BASIC and assembler, there are other languages such 
as PILOT, PASCAL, LOGO, and FORTH currently available. In 
addition, a Z-80 card is available that makes it possible to 
use the CP/M operating system. CP/M is the world's most 
popular an operating system and opens a new level of 
programming and software applications to the Commodore 64 
user.. This Z^80 card, for which the Commodore 64 already 
has a built-in slot, contains, as its name already implies, 
a Z-80 processor. It was to complement this processor that 
the 6510 was developed. 

In addition to this card, there are 80-column cards which 
enable the Commodore 64 to display 80 character lines. This 
card is very useful for word processing. 

Obviously you won't be left without support for your 
Commodore 64. Every day there are new developments. Others 
receently announced include graphics tablets, sketch pads 
such as the KOALA Pad, and voice synthesizers. Software 
support is also rapidly expanding to fill the void felt 
earlier. 



Since the Commodore 64 has the ability to use other 
Commodore machine's software, you have a wide variety of 
software available. Considering its capabilities, the 
Commodore 64 is superior to other CBM/PET computers and the 
VIC-20 while being one of the least expensive on the market. 

BASIC for the Commodore 64 is, as mentioned before, BASIC 2. 



This BASIC is a version developed by Microsoft for 
Commodore. It is not only very capable, but also very easy 
to learn. The professional will like the first point? the 
beginner will appreciate the second. 

There are some advantages to Commodore BASIC compared to 
other versions. For one thing, editing programs is very 
fast and efficient. In order to change a line, you simply 
move the cursor to the proper line, clear characters or 
whole words, insert new text if needed, and move to the next 
line by pressing RETURN. On pressing RETURN, the Commodore 
64 determines if there is a program-line in the next line. 
If there is, BASIC automatically places the cursor at the 
beginning of the line. In a like manner you may go through 
your entire program making necessary changes. When editing 
is completed, press the CLR key clearing the screen and 
returning the cursor to HOME position. 

This screen-oriented editor offers yet another advantage. 
After an error in direct mode input which is refused by a 
SYNTAX ERROR message, it is possible to bring the cursor 
back to this line, correct it, and then RETURN. This saves 
a considerable amount of retyping. 

The third time the editor is useful is in loading programs 
from diskette. You move the cursor to the line containing 
the chosen program title (you must have called the index 
previously, of course, using L0AD"$",8), type LOAD over the 
number indicating blocks used, cursor to the end of the 
title and type ',8:*. On RETURN, the program is loaded. 
This procedure eliminates the possibility of FILE NOT FOUND 
errors common with mistyped titles, and again you are spared 
excessive typing. 

Another advantage of the 64 is the option of using 
abbreviations for commands and statements. On the 64, a 
command may normally be given by typing the first letter of 
the word followed by a shifted second letter and pressing 
RETURN. For example, 'L* followed by SHIFT'I' is the 
replacement for LIST. 

There are, of course, differences between the various 
versions of BASIC. In order to use programs that run on 
other computers, you must know these differences. One of 
the first is in clearing the screen. In every system, this 
command is different. In some it's called HOME, in others 
it's CLS, and some use CHR$. The 64 has two options. 

The first is the input of a control character, CHR${147). 
This control character issues the command to clear the 
screen. The other possibility is to insert a CLR command 
within a print instruction. On the screen you will see an 
inverse heart. This command has the same effect as the 
CHR$(147). It is used more often in Commodore listings. 
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Another difference is in the output of inverse text. There 
are systems that use an INVERSE/NORMAL command routine. 
Again, the 64 has two options. The first is to use 
CHR$(18); the second is to place RVS-ON in a print 
statement. To return to normal, the command is either 
CHR$(146) or including RVS-OFF in a print statement. On 
other machines, it may be the use of the command NORMAL. 

Naturally other systems have an extended BASIC as well. 
There are, for instance, commands for a formatted number 
output (PRINT USING) or automatic error branching (ON ERROR 
or GOSUB). As you have found out while reading this book, 
it is not difficult to develop these routines yourself. 

Following is a list of commands used by the Commodore 64: 

CONT RUN 
LIST SAVE 
LOAD VERIFY 
NEW 

and statements: 



CLOSE 


GOSUB 


PRINT 


CLR 


GOTO or GO TO 


PRINT* 


CMD 


IF. .THEN 


READ 


DATA 


INPUT 


REM 


DEF FN 


INPUT# 


RESTORE 


DIM 


LET 


RETURN 


END 


NEXT 


STOP 


FOR . . TO . . STEP 


ON 


SYS 


GET 


OPEN 


WAIT 


GET# 


POKE 





Besides these, BASIC offers a great number of efficient 
mathematical functions, and it also contains string 
functions that allow convenient working with text. 
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OTHER BOOKS AVAILABLE: 



The Anatomy of the CcMnmodore 64 - is our insider's guide to 
your favorite computer. This book is a must for those of you 
who want to delve deep into your micro. This 300+ page book 
is full of information covering all aspects of the '64. 
Includes fully commented listing of the ROMs so you can 
investigate the mysteries of the BASIC interpreter, 
kernal and operating system. It offers numerous examples of 
machine language programming and several samples that make 
your programming sessions more enjoyable and useful. 

ISBN# 0-916439-00-3 Available now: $19.95 



The AnatCMny of the 1541 Disk Drive - unravels the mysteries 
of working the the Commodore 1541 disk drive. This 320+ page 
book starts by explaining program, sequential and relative 
files. It covers the direct access commands, diskette 
structure, DOS operation and utilties. The fully commented 
ROM listings are presented for the real "hackers". Includes 
listings for several useful utilities including BACKUP, 
COPY, FILE PROTECTOR, DIRECTORY. This is the authoritive 
source for 1541 disk drive information. 

ISBN# 0-916439-01-1 Available now: $19.95 



The Machine Language Book of the Commodore 64 - is aimed at 
the Commodore 64 owner who wants to progress beyond BASIC. 
If you want to write programs that run faster, use less 
memory or perform functions not available in BASIC, then 
this book will help you learn machine language. Included are 
listings for three full length programs: a working 
assembler so you can create your own machine language 
program; a disassembler so you can inspect other machine 
language programs; and a 6510 simulator so that you can 
"see" the operation of the processor. 

ISBN# 0-916439-02-X Available now: $14.95 
Optional program diskette: $14.95 



Tricks & Tips for the Commodore 64 - presents a collection 
of easy-to-use programming techniques and hints. Chapters 
cover advanced graphics, easy data entry, enhancements for 
advanced BASIC, CP/M, connecting to the outside world and 
more. Other tips include sorting, variable dumps, and POKEs 
that do tricks. All-in-all a solid set of useful features. 

ISBN# 0-916439-03-8 Available June 29th $19.95 



OTHER TITLES COMING SOON!!! 



THE 
ANATOMY 

or THE 

COMMODORE 

This is the insider^s guide to the Commodore 64 The 
ANATOMY is tor those of you who want to delve 
deep into your micro. This 300 page detailed guide 
is full of information covering all aspects of the 64. 

Includes fully commented listing of the ROMS so you 
can investigate the mysteries of the BASIC Inter- 
preter, Kernal and operating system. Also includes 
several sample and useful program listings. 
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